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NOMENCLATURE 


a 


A 

q 


b 


bf 

B 

q 


c 


c 


C ^/2 


constant in program correlation for A or B , or constant 

in constant eddy diffusivity model » or coefficient in transformed 
equation (4,7). 

production constant, turbulent kinetic energy equation* 

damping constant, van Driest damping function (see equation 
2.24 for correlation). 

constant in program correlation for a"^ or B , or constant 
in constant eddy diffusivity model, or coefficient in trans- 
formed equation (4.7). 


generalized x-direction body force, momentum equation. 

dissipation constant, turbulent kinetic energy equation. 

damping constant, Evans damping function (see equation 2.24 
for program correlation) . 

constant in program correlation for a"^ or b"*” , or constant 
in variable turbulent Prandtl number model, or specific heat 
of fluid, or coefficient in transformed equation (4.7). 


constant in differential lag equation to compute effective 


or V 

o 


2 — *^2 

friction coefficient, ) for pipe 

and channel flows. 


d 


coefficient in transformed equation (4.7). 


P 


damping function to suppress mixing length in the region 
Immediately adjacent to a wall, equation (2.22) and (2.23). 

dissipation term, turbulent kinetic energy equation. 


E-surface see Figure 4.1. 

E total energy flux boundary condition at a wall. A" I + q" 

(see Figure 2.2). 

g local gravitational constant to determine free-convection 

body force. 

g proportionality constant, Newton's Second Law. 

1' fluctuation in static enthalpy. 


V 



i 

I 


I-surface 

I* 

I 

J 

J 

q 

k 

£ 

m” 

Nu 

P 


Pe 

Pr 

Pr 

Pr 


t 

eff 

t 


q ^/2 


r 

Re 

Reg 


Re 


tran 


s 


fluctuation in stagnation enthalpy* 
static enthalpy of fluid, 
see Figure 4.1. 

stagnation enthalpy of fluid, I + U^/(2g^J). 

non-dimensional stagnation enthalpy, (I *-I ) U /(q"/p ). 

o Too 

conversion constant, mechanical to thermal energy, 
diffusion term, turbulent kinetic energy equation, 
thermal conductivity of fluid, 
mixing-length (see section 2.3.1) 

mass flux at I or E surface (see Figures 2.2 and 4.1). 
Nusselt number, pipe and channel flow, St • Pr • Re. 
thermodynamic pressure. 

non-dimensional pressure, g^v^(dP/dx)/(p^U^) 
turbulent Peclet number, program correlation for Pr^ . 

Prandtl number, pc/k . 

combined laminar and turbulent Prandtl number, equation (2.14). 

turbulent Prandtl number, {see equation 2.37 for program 

correlation). 

combined laminar and turbulent heat flux. Figure 2.2 and 
equation (3.2). 

non-dimensional heat flux, q*'/q^ • 
turbulent kinetic energy 
radius 

pipe or channel flow Reynolds number, equation (3.29). 

enthalpy thickness Reynolds number, A 2 

momentum thickness Reynolds number, A 2 ^oo^^oo 

Reynolds number (Re or for transition from laminar 

to turbulent flow. 

generalized energy source, stagnation enthalpy equation. 
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s 

Sc 

q 

St 


T 

u 


U 


U 


u 



w 


X 

+ 

X 


X 


y 

+ 

y 

a 



non-dimensional generalized energy source, ’ 

energy source term, stagnation enthalpy equation, UX/J + s 
turbulent Schmidt number, • 

Stanton number, q"/{p„U (I -!„)) , or q”/{pU(I -I )} . 

* ® o ® o o 

r=p 

longitudinal free-stream turbulence intensity u’ / . 

fluctuation in U component of velocity . 

velocity conqjonent in x-directlon. 

I 1 

shear velocity • 

non-dimensional U velocity component U/U^ • 
fluctuation in V component of velocity . 
velocity component in y-dlrection. 
non-dimensional V velocity component at vail, 

Po 

distance along surface (see Figures 2*1 and 4*1). 

non-dimensional x distance, xU^/v^ . 

body force term, momenttim equation, ^ + bf . 

®c 

3 

non-dimensional body force term, 8 ^.^qX/(p^U^ ) . 

distance normal to surface (see Figures 2.1a and 4,1) . 

non-dimensional y distance, • 

angle between surface tangent and axis-of-symmetry line 
(see Figures 2,1a and 4.1), or constant in Internal cor- 
relation for Pr^ . 

power-law coefficient velocity equation slip scheme, 
power-law coefficient, diffusion equation slip scheme, 
displacement thickness, equation (3.22a). 
momentum thickness, equation (3.22b). 
boundary layer thickness where U/U^ = 0.99 . 
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V 

p 

T 

+ 

T 

U) 

Subscripts 

axi 

d 

e 

eff 

fp 

eq 

N 


enthalpy thickness, equation (3.22c), 

eddy diffuslvity for heat. 

eddy diffuslvity for momentum. 

eddy diffuslvity for turbulent kinetic energy. 

Karman constant, mixing-length model, 
outer length scale constant mixing-length model, 
program input value of X . 
dynamic viscosity of fluid. 

combined laminar and turbulent viscosity, equation (2.6), 
non-dimensional viscosity, . 

kinematic viscosity of fluid, 
density of fluid. 

combined laminar and turbulent shear stress, equation (3.1). 
non-dimensional shear stress, t/t 

o 

generalized dependent variable in transformed equation (4.7). 
stream function coordinate, 
non-dimensional stream function coordinate. 

axisymmetric (see section 3.6). 

downstream edge of finite-difference control volume, 
edge of shear layer, equation (2.18). 
effective value. 

'’flat plate" value, without transpiration or pressure gradient, 
equilibrium value, equation (2.25). 
number of stream tubes* 



wall value, 
turbulent value. 
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u upstream edge of finite-difference control volume. 

“> free-stream value. 

2.5 join-point value. 

Superscript 

overbar time averaged quantity, or bulk mean value (Section 3.7). 
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Chapter 1 


INTRODUCTION 

In recent years it has become practicable and popular to compute turbu- 
lent boundary layers using finite-difference techniques and the digital com- 
puter, These techniques have now been developed to the point where one can 
readily develop one’s own program for particular applications, and numerous 
workers have described their programs in the literature and have made listings 
or card decks available to others. There is no question that the development 
of one’s own program is a tedious process and the programs become sufficiently 
complex that a great deal of development effort is usually required. For the 
user who doesn't expect to devote a great amount of time (and money) on a pro- 
gram it is often more practicable to make use of someone else's program, pro- 
vided that the program is sufficiently well documented that it can be used 
intelligently. 

It is the objective of this report to describe one such program which 
has gone through a considerable period of development, and which has been 
found useful in connection with an experimental turbulent boundary layer re- 
search program at Stanford University. Enough people have asked for copies of 
this program that it seems worthwhile to provide in a more formal way the doc- 
umentation that is really necessary If the program is to be used properly. 

No claim of superiority is made; In fact, there is no question that 
there are other programs developed for particular applications that are faster 
and are in some cases even more precise. However, this program is believed 
to be unique in its degree of generality, in the large variety of different 
kinds of problems that can be handled, and, in particular, in an input-output 
scheme that makes it possible to handle a great variety of problems without 
touching the deck. Very minor modifications In the deck open up a whole realm 
of additional possibilities. 

The original basic program from which this one was developed was the 
Patankar/Spalding program described in their 1967 book [1], Much of that pro- 
gram will be recognized in this present version, and a complete understanding 
of all the details of the present program may require reference to that publi- 
cation. However, it is hoped that this description will be sufficiently com- 
plete to make further study unnecessary in most cases, A later revision of 
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the Spalding prograin was published in 1970 [2] in which a number of important 
improvements were made. Some of these improvements have been incorporated in 
the present version, and it is our belief that the present version suffers in 
comparison only with respect to size and speed, and perhaps in accuracy for 
some" unusual types of problems. The largest source of inaccuracy and uncer- 
tainty in turbulent boundary layer finite-difference procedures lies in the 
methods used to model the turbulence, and this has nothing to do with the 
computational procedure. 

The basic features of the program will now be described, and then elabo- 
rated upon in the chapters that follow. 

The program is designed to solve two-dimensional parabolic differential 
equations only, i.e., the boundary layer equations incorporating the usual 
boundary layer approximations. The eddy diffusivity concept must be used in 
modeling the turbulent stresses, although beyond that point there is great 
flexibility. The program does not handle re-circulating flows. 

The program solves the momentum equation of the boundary layer, as a 

minimum, plus any number of diffusion equations, all simultaneously. The list- 

ing presented in the Appendix is dimensioned to a maximum of five diffusion 
equations, and the output routine handles only five, but it is a simple matter 
to increase this number if desired. 

A coordinate system for axi-symmetric flows is used so that a large variety 

of flow types can be accommodated by simple manipulation of variables in the 

input routine. These include the boundary layer on a flat plate, flow inside 
nozzles and diffusers (for a prescribed potential flow distribution), flow over 
axi- symmetric bodies, both developing and fully developed flow Inside circular 
pipes and flat ducts, circular and flat jets and free-shear flows. As pres- 
ently set up, the program provides for one wall surface, and thus the duct-flow 
problems are limited to simple pipes and flat ducts with symmetrical boundary 
conditions. In principle there is no reason why two walls, such as are encoun- 
tered in circular tube annuli, cannot be handled, but this does require some 
additional program modification. 

The program solves laminar boundary layers as well as turbulent boundary 
layers, and provision is made for a transition from a laminar to a turbulent 
boundary layer based on a momentum thickness Reynolds number criterion. Solu- 
tion of laminar boundary layers Is of necessity slower than is possible with 


2 



programs developed for laminar boundary layers alone, because the program was 
developed for the more complex turbulent problems. 

Fluid properties are treated as variable with the properties of any . 
particular fluid supplied through a separate subroutine. In the present pro- 
gram listing the only fluid properties provided are those of air (essentially 
the Keenan and Kaye Gas Tables). Properties of other fluids may be intro- 
duced by attaching additional property subroutines. Fluid properties may also 
be treated as constant, in which case the properties are introduced directly 
into the input routine. The types of problems that can be handled with the 
present listing are obviously limited by inclusion of only the properties of 
air. For example, the program could readily solve a binary diffusion problem, 
together with heat transfer, but it would be necessary to append an additional 
properties subroutine unless the constant properties mode is deemed adequate. 

Viscous dissipation in the energy equation is included as an option con- 
trollable through the input routine, so high velocity flows can be readily 
solved. Provision is also made for introducing axial body forces and internal 
heat generation. A particular provision is made to introduce an axial gravity 
force, and this together with the variable property option allows solution of 
both laminar and turbulent f ree-convectlon problems. 

In principle the chemically reacting boundary layer may be solved to 
various degrees of approximation, but this does require the addition of source 
terms which are not included in the present listing. 

Any kind of initial conditions can be accommodated, and the boundary con- 
dition possibilities using the input routine, while not infinite, are neverthe- 
less large. Free-stream velocity, rather than pressure, is treated as a 
variable boundary condition, and heat and mass flux along a wall may assume 
any values. Alternatively, wall enthalpy (or concentration in the case of mass 
diffusion) and mass flux may be treated as independent. In the case of duct 
flows there is no free-stream and pressure is computed as a dependent variable. 

Several possibilities for turbulence modeling are Included and can be 
activated in a simple manner in the input routine. The Prandtl mixing-length 
scheme may be used throughout, or, alternatively, a one-dlfferentlal-equation 
turbulent kinetic energy scheme may be used for the flow outside the sublayer 
region. This alternative involves solution of the turbulent kinetic energy 
differential equation of the boundary layer, which is singly another diffusion 
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equation. As another ^possibility , eddy diffusivity in the outer part of the 
boundary layer may be evaluated as an empirical function of Reynolds number. 

In all cases a mixing-length scheme is used to calculate the sublayer near the 
wall, and two possibilities are programmed. In one the Van Driest exponential 
damping function is used, while in the other the Evans linear damping function 
is used. Internal empirical correlations for the damping constants to account 
for effects of pressure gradient and transpiration are contained in the pro- 
gram, or, alternatively, the user can supply his own constants. Other varia- 
tions in the turbulence physics can be quite easily made, but this does require 
some re-programming . 

The energy equation, and any other type of diffusion equations, is solved 
through the concept of turbulent Prandtl number (or turbulent Schmidt number). 
The program contains an internal calculation for turbulent Prandtl number as a 
function of turbulent Peclet number, which gives reasonably good results over 
the entire spectrum of Prandtl number, including the liquid metal region. Al- 
ternatively, the user may specify his own turbulent Prandtl number. 

The concepts of "slip" values at the wall and a ^Vall Function" are em- 
ployed, allowing the use of a relatively coarse grid in the direction normal 
to a wall surface. The region adjacent to the wall is computed by numerically 
integrating the Couette flow forms of the boundary layer equations, but with 
physics input identical to that used outside the wall region. This option can, 
however, be bypassed, but at the cost of a greatly increased number of grid 
points near the wall. The Wall Function is especially useful in high Reynolds 
number applications where the number of cross-stream grid points can otherwise 
become excessive. 

The program is "almost" independent of any particular dimensioning sys- 
tem. It would be completely Independent were it not for the fact that the 
property subroutine for air which is packaged with the program is based on Btu, 
ft, Ib^ units. The dimensioning system to be used is designated in the input 
routine by two constants. 

Finally, a word about the differencing scheme employed is in order, be- 
cause in this respect it differs from many other programs. A fully implicit 
scheme is employed for the main dependent variables (velocity, enthalpy, mass 
concentration, etc.), and this, together with the fact that the conservation 
equations are always satisfied, in principle allows large forward steps to be 
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taken without stability problems. However, fluid properties and turbulence 
properties are handled explicitly, and if these are changing markedly in the 
flow direction it is not possible to take large forward steps without stability 
and accuracy problems. The advantage is that nowhere is Iteration required. 
This restriction to relatively small forward steps (typically about one or two 
boundary layer thicknesses) is not necessarily disadvantageous, because one of 
the reasons for making finite-difference calculations is that variable bound- 
ary conditions can be easily handled, and there is often a need for output 
data, such as heat flux, at frequent intervals along a surface. Both of these 
requirements dictate a small forward step size anyway. 

The remaining chapters of this report will now expcind upon this brief 
description, culminating in detailed instructions about how to set up a problem 
and use the input routine. It might well be noted here, however, that the in- 
put subroutine (which is actually packaged at the end of the program) contains 
very extensive descriptive comments, suggestions, and instructions, and is thus 
a convenient summary of much of this report. 
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Chapter 2 


DIFFERENTIAL EQUATIONS AND TURBULENCE MODELS 
2 . 1 Convective Transport Equations 

The types of flows modeled by STANS are those described by the parabolic 
boundary layer equations, which include the continuity, momentum, and stagna- 
tion enthalpy equations. They are written to describe flow of a turbulent, com- 
pressible fluid over an axi-symmetric body. All equations have been time- 
averaged, and in the equations all dependent variables and properties are 
either mean quantities or fluctuating quantities (as denoted by primes). 

They are also applicable to laminar flows, in which case the turbulent stress 
and heat flux are ignored. Figure 2.1 describes the coordinate system and 
typical velocity and stagnation enthalpy profiles. Note the coordinate system 
is written in terms of the independent variables, x and y. The radius, r, 
is a transverse radius of curvature and is related to y as shown in Figure 
2.1(a)* and the longitudinal radius of curvature is neglected (i.e., a(x) in 
Figure 2.1(a) varies slowly with x) - 
2.1.1 The Continuity Equation 

The time-averaged continuity equation for this coordinate system 

is given by 


(rpU) + ^ (rpV) - 0 . (2.1) 

In the above equation and the momentum and energy equations which follow, ther- 
modynamic quantity-velocity fluctuation correlations are neglected. 


2 . 1. 2 The Momentum Equation 

The time-averaged momentum equation In the x-direction is given by 


PU 


in 

3x 


■ ■ Sc £ + If- 0 Sc* • «.2) 


In the program, the body-force term in equation (2.2) is decomposed into 


X = ^ + bf 


(2.3) 
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where the first term is a free convection body force in the positive x direc- 
tion and bf is a generalized, x-directlon body force with units of (force/unit 
volume). The bf term might be used to model magnetohydrodynamlc body forces. 

Pressure gradient is computed for pipe/channel flows as described in [1,2]. 
For flows over a surface dP/dx is computed in terms of the free-stream velocity 
and ,body force , 


dP 


dU 


^C Idx/ ^ 00^00 dx ®C^ 


(2.4) 


In the momentum equation, the turbulent shear stress, -u v , is modeled 
using the eddy diffusivity for momentum, Ej^, as defined by 




in 

'M 3y 


in 

P 3y ’ 


(2.5) 


where is the turbulent viscosity. The laminar viscosity combines with the 

turbulent viscosity to obtain an effective viscosity 


Peff = (VI + V • 


( 2 . 6 ) 


Combining equations (2.2), (2.5), and (2.6) yields the final form for 
the momentum equation that is programmed. 


,, 3U ^ ,, 3U 

P"" ^ P"" 37 


dP ^ 1 3 r 3ul ^ 
■ ®c dx r 3y L’^^eff 3yJ 


(2.7) 


2.1.3. The Stagnation Enthalpy Equation 

The time-averaged stagnation enthalpy equation Is given by 


_ * - * 


i _L 

r ,3y 


nil . +_tL 

c 3y g^J 




+ S 


( 2 . 8 ) 


* # * 
where I is the stagnation enthalpy of the fluid, defined as I * I + 

2 

U /2g J, and I is the static enthalpy, 
c 

In the program, the energy source term in equation (2.8) is decomposed 


into 


S 



(2.9) 
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where the first term is work done against x-direction body forces and s is 
a generalized source (energy rate/unit volume)* The s term might be used 
to model Joulean heating for an electrically conducting fluid or nuclear heat- 
ing. 

In equation (2,8), a model for -i ’v’ is required. The term is a 
correlation involving fluctuations in stagnation enthalpy and cross-stream 
velocity, and is approximated as 

= -i*v' + U(-u'v') , (2.10) 


where i' is fluctuation in static enthalpy. The turbulent heat flux, 
-i'v' , is modeled using the concept of eddy diffusivity for heat, as 

defined by 


-i’v' 



( 2 . 11 ) 


where is the turbulent conductivity. The eddy dlffusivities for heat and 

momentum are related through the turbulent Prandtl number. 


Pr 


t 



( 2 . 12 ) 


The laminar conductivity combines with the turbulent conductivity to form 
an effective conductivity (divided by specific heat, c) , 



(2.13) 


Equations (2.6), (2.12), and (2.13) are combined to form an effective Prandtl 
number , 


Pr 


eff 


eff 


(k/c) 


eff 


Pr 


V 

■ In _L 

V Pr 


(2.14) 


Equations (2.5), (2. 10) , (2. 11) , and the definitions for and 

Pr are combined with equation (2.8) to give the final form of the stagna 
eff 

tlon enthalpy equation that is programmed. 


9 



1 _3_ 
r 9y 


r 


(2.15) 


31 


3I 


P"' ^ ^ P'" 3y 


^eff 31* 


Pr 


eff 


3y 


P%ff/3yl2; 


+ S 


2. 2 Boundary Conditions 

For boundary layer flows in which there are a wall and a free stream, 
e.g., flow over a flat surface or a body of revolution, the boundary condi- 
tions for the momentum equation are given by 


U(x,0) 
V(x,0) » 

Lim U(x,y) 


= 0 , 
m^(x)/p , 


- U„(x) 


(2.16a) 

(2.16b) 

(2.16c) 


where ra"^(x) is wall mass transfer per unit area due to fluid injection or 
suction. 

Boundary conditions for the stagnation enthalpy equation are given by 


l*(x,0) 


I*(x) 

o 


or 


q"(x,0) 


k 3l*(x.O) 
c 3y 


q;;(x) 


(2.16d) 


X * 

Llm I (x,y) * (constant) . (2.16e) 

y->oo 

The wall boundary condition (2.l6d) is either a level or a flux. For both 
cases, if there Is transpiration at the surface, the transpired fluid is as- 
sumed to leave the surface in thermal equilibrium with it. If a flux boundary 

condition is specified, then the program requires specification of the total 

* 

energy flux from the surface. This is related to the surface heat flux, •3 q(x) 
as shown in Figure 2.2 for a differential element of surface area. 
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Figure 2,2. Wall flux boundary condition. 


Boundary layer-type flows with a wall and a line of symmetry, e.g. , flow 
in a circular pipe or a flat duct, have the following boundary conditions at 
the centerline, y “ 0, and wall, y = r^. 

U(x,r ) = 0 , (2.17a) 

V 


V(x,r^) = 0 



* 

I 


(x,r ) 
» w 


= 0 , 
I*(x) 


or 




q;;(x) 



(2.17b) 

(2.17c) 

(2.17d) 

(2.17e) 


Because such flows are confined flows, the pressure gradient must be determined. 
This is accomplished Indirectly in the program by linking it to conservation of 
mass: a pressure gradient is computed to conserve the mass flow rate as the 
momentum equation is integrated in the x-direction. 

Boundary layer flows with a free surface and a line of symmetry, e.g., 
jets and free shear flows, have the following boundary conditions at the center- 
line, y = 0, and the edge of the shear layer, r^. 


11 



3U(x,0) 

3y 

0 , 

(2.18a) 

V(x,0) = 

0 , 

(2.18b) 

Lim U(x,r) = 
r+r 

e 

u (x) , 

00 ' * 

(2.18c) 

3l*(x.O) 

3y 

0 , 

(2.18d) 

[ (x,r) * I* 

’ 00 

(constant) 

(2.18e) 


2. 3 Turbulent Shear Stress 

Turbulent shear stress is modeled using the eddy diffusivity for momentum. 
The program incorporates three options for modeling as follows. 


2.3.1 Prandtl Mixing-Length Model for 

The Prandtl mixing- length model relates eddy diffusivity for momen- 
tum to the mean velocity gradient by defining a mixing-length, A, such that 




Hi 

9y 


(2.19) 


The mixing -length for the region near the wall but outside the viscous 
region immediately adjacent to the wall is given by 


- Ky . (2.20) 

A suggested value for K is 0.41. 

Immediately adjacent to the wall, the viscous sublayer is modeled by 
introducing a damping function, D , that effectively suppresses the linear 
dependence of equation (2.20). With the damping function, the mixing- length 
for the viscous region becomes 


I 


KyD . 


( 2 . 21 ) 



Two damping function options are available in the program. The first 
type is the Van Driest damping fxmction, 

D = 1.0 - exp [-y'*^(v^/v)/A'*^] , (2.22) 


where y"*”(v /v) is the non-dimensional distance from the wall, expressed in wall 
o 

coordinates", defined in Section 3.2, and A' is an effective sublayer thick- 
ness defined in an analogous manner. The second type of damping function in 
the program is the Evans damping function, 


(i.o , y^(v^/v) > b"*^ 


(2.23) 


where B^ is an effective sublayer thickness. 

The effective thickness of the viscous sublayer is probably the single 
most important parameter in computation of turbulent boundary layers. The sub- 
layer, though comprising a very small fraction of the total boundary layer 
thickness, is the region where the major change in velocity takes place and, 
except for very low Prandtl number fluids, is the region wherein most of the 
resistance to heat transfer resides. If this region is modeled accurately, 
only a very approximate scheme is needed throughout the rest of the boundary 
layer. 

Thickness of the sublayer is evidently determined by viscous stability 
considerations. The experimental evidence is that a favorable pressure gradi- 
ent (dP/dx negative) results in increased thickness, while an adverse pres- 
sure gradient has the opposite effect. Transpiration into the boundary layer 
(blowing) decreases the thickness, if it is expressed in non-dimensional wall 
coordinates, while suction has the opposite effect. Surface roughness, while 
not a subject of this paper, causes a thinning of the sublayer. 

The effects of pressure gradient and transpiration on A or B are 
conveniently expressed in terms of a non-dimensional pressure gradient param- 
eter, P"*", and a non-dimensional blowing parameter, V^, both of which can 
be either positive or negative. In both of these parameters the main argument 
is normalized with respect to the same wall coordinate parameters as is the 
effective sublayer thickness a"*" or B . 
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The functional dependence of A upon P and V has been deduced 

o 

experimentally by examination of a very large number of velocity profiles ob- 
tained at Stanford [3]. This functional dependence can be directly related to 
and both can be expressed algebraically as 


where 


Jr 


or B 


£E- 


a 


+ 1.0 


\ 1 + cV^ / 

1- Q —1 



a = 

7.1 

if 

v-^ 

o 

>. 0.0, 

Otherwise a = 9.0; 

b = 

A. 25 

if 


1 0.0, 

otherwise b ■ 2.9; 

c * 

10.0 

if 


5 0.0, 

otherwise c = 0.0, 


(2,24) 


A recommended value for A- and B. are 25 and 35, respectively 




fp 


Equation (2,24) is plotted on Figure 2.3 for A , and in the graph the 
effects of pressure gradient and transpiration can be clearly seen. Note that 
a strong favorable pressure gradient forces A**" to very high values, and that 
blowing lessens this effect, while suction increases it. If a"*" becomes very 
large, the viscous sublayer siniply overwhelms the entire boundary layer, re- 
sulting in re- laminar ization. The thickening of the sublayer caused by a 
favorable pressure gradient (accelerating flows) results in a decreased Stan- 
ton number simply because the major resistance to heat transfer is in the 
viscous sublayer. 

as represented by equation (2.24) and Figure 2.3, has been evaluated 
under essentially equilibrium conditions, l.e., conditions under which 
and/or P are Invariant of, at worst, are varying only slowly along the sur- 
face. This Is the case of inner region equilibrium. It is probable that when 
a sudden change of external conditions is imposed, the inner region comes to 
equilibrium more rapidly than the outer region, although this has not been 
proved. In any case, under non-equilibrium conditions where or P"*" are 

changing rapidly, it has been observed that the sublayer does not change in- 
stantaneously to its new equilibrium thickness, i.e. , a"** does not immediately 
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assuTii’^ its new equilibriuin value. Since A = 
the form (suggested by Launder and Jones [4]) 


dV 


o.eff 

dx"^ 


(V 


o.eff 




v'^ ) 

o»eq 


lag equations of 


(2.25) 


are solved to simulate the effect. The term local blowing 

parameter, and is its effective value, used to compute the damping 

constant. A similar equation is solved for P'*'. The recommended value for 
C is 4000. 

In the boundary layer momentum equation (2.7), the body force term, X, 
must exert some influence upon the viscous sublayer thickness. In the program 
it is assumed that the influence of X upon the damping coefficient^is simi- 
lar to the pressure gradient. Thus a non-dimensional body force, X , is 
computed, and the algebraic sum (P*^ - x"^) is used in place of P"^ to evalu- 
ate an equation of the form of equation (2.25) for ^eff‘ 
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The outer region of the flow, referred to as the wake region, is modeled 

using a mixing-length directly proportional to the boundary layer thickness. 

The program input variable FR determines the thickness as 6,, with 

(1.00-FR)’ 

a recommended value of 0.01 for FR. 


^ . (2.26) 

A recommended value of X is 0,085. The outer region is defined as y > 

There is some evidence that the effective value of X is larger than 
0.085 for boundary layers in which the momentum thickness Reynolds number is 
less than 5500. This may be a result of the fact that at low Reynolds numbers 
the sublayer is a larger fraction of the boundary layer and the approximation 
of a constant mixing- length over the remainder of the boundary layer is less 
valid. For strong blowing, even at low Reynolds ntjinbers, X again appears 
to be close to 0.085, and this is consistent with the above explanation be- 
cause the sublayer is then thinner. The following equation has been found to 
describe the observed low Reynolds behavior of X quite well. 

X - 2.942 X^ (1.0 - 67.5 F) , (2.27) 

where F = ^nd X^ is the program input valxie. If X becomes less 

than X , it is set equal to X 
o ^ o 


2.3.2 Turbulent Kinetic Energy Model for 

The Prandtl mixing-length is essentially an equilibrium model that 
can handle turbulent flows with slowly changing boundary conditions. For 
strongly non-equilibrium boundary layers (especially under adverse pressure 
gradient conditions or when there is an appreciable amount of free-stream tur- 
bulence) , a higher level of closure model for the turbulent shear stress is 
desirable. The turbulent kinetic energy model (TKE model) relates a velocity 
scale-length scale product to the eddy diffuslvlty for momentum. 


e 


M 




(2.28) 


16 



2 

where q /2 is the turbulent kinetic energy of the flow. and I is the mixing- 

length, as defined by equations (2.21) or (2.26). 

Actually, the TKE model incorporated into the program is a hybrid model; 

the Prandtl mixing- length model for e is used in the near-wall viscous re- 

+ + ” + + 

gion and the TKE model for y > 2A or y > B . In principle, the TKE 
model may be applied in the viscous region, but this requires modification to 
the length scales for production and dissipation. At present there are no 
provisions in the program for computing TKE in the viscous sublayer region. 

Turbulent kinetic energy of a flow is computed in the program by solving 
a differential equation of the form 


PU 


9(q^/2) 

9x ^ 3y 


- p U V 


(rJ ) 

9y r 9y q 


(2.29) 


In the TKE equation, the production term (the first term to the right of the 
equal sign) is modeled from equations (2.5) and (2.28), and given by 


- p u V 




(2.30) 


The dissipation 


term. 




is modeled as 


( 2 .^ 1 ) 


where k Is the von Karman constant. 

is the dissipation constant, and it is related to by requiring 

production to equal dissipation in the logarithmic region near the wall. 


B 

q 



(2.32) 


For K • 0.41, suggested values for and are 0.22 and 0.38, 

tively- 

The diffusion term, J^, is modeled as 


J 

q 


- P (V + £q) 


9(q^/2) 

3y 




respec- 


(2.33) 
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where v is the laminar kinematic viscosity, and c is related to e by 
a turbulent Schmidt number, 


2 

3 ^ 

2 


Sc 

II 

q 

e 

q 

. Is 1.7. 

for equation 

(2.29) , with 


. ( 


at y - j 


(2.34) 


.ream, are 


(2.35a) 


and 


Lim ^ = 

y-KJO ^ 


( free stream ^ 
turbulence level j 


3 2 2 

2 u ® 


(2.35b) 


Equation (2.35b) assumes isotropic free-stream turbulence and T =Vu’^/u 

U 'a 


2.3.3 Constant Ed:iy Diffuslvlty Model 

An alternative to the assumption that mixing-length in the outer 
region is constant is the assumption that eddy diffusivity for momentum is con- 
stant. Eddy diffusivity in this region can be correlated to either displace- 
ment thickness or momentum thickness Reynolds number or diameter Reynolds num- 
^ber in the case of pipe-flow. In the program, this option is given by 



V 



(2,36) 


In Che above expression, suggested values of a and b for pipe-flow are 
0.005 and 0.9, respectively. For pipe-flow this option is to be preferred to 
the constant mixing- length option. 


2.4 Turbulent Heat Flux 

" Turbulent heat flux is modeled using the eddy diffusivity for heat. The 
program Incorporates two options for modeling e , a constant turbulent Prandtl 

n 

and a variable turbulent Prandtl number. 


2.4.1 Constant Turbulent Prandtl Number 

The eddy diffusivity for heat is modeled by relating it to the eddy 
diffusivity for momentum. 
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( 2 . 12 ) 



where Pr^ is the turbulent Prandtl number. 

A very simple physical model of the turbulent momentum and energy trans~ 
fer processes leads to the conclusion that i.e. , * 1.00 (the 

"Reynolds Analogy"). Slightly more sophisticated models suggest that Pr^ > 
1.00 when the molecular Prandtl number is very much less than unity. A sug- 
gested value for gases is 0.90. 

2.4.2 Variable Turbulent Prandtl Number 

An improved model for allow it to vary with distance 

from the wall, as suggested from experimental data from Stanford [3]. Sev- 
gY'al conclusions can be drawn from the Stanford data. Plrst, the turbulent 
Prandtl number, at least for air, apparently has an order of magnitude of unity 
Thus the Reynolds Analogy (Pr^ = 1.00) is not a bad approximation. 

The second conclusion is that Pr^. seems to go to a value higher than 
unity very near the wall, but is evidently less than unity in the wake or 
outer region. The situation very close to the wall is especially vexing be-- 
cause it is extremely difficult to make accurate measurements in this region,? 
and yet it seems evident that something interesting and important is happening 
in the range of y"*" from 10.0 to 15.0. The behavior of Pr^ at values of 
y'*' less than about 10.0 is highly uncertain but fortunately not very impor- 
tant, because molecular conduction is the predominant transfer mechanism in 
this region. At the other extreme, in the wake region Pr^. does not need to 
be known precisely, because the heat flux tends to be small there. 

Another conclusion, for which the evidence is not yet very strong, is 
that there is some small effect of pressure gradient on Data suggest 

that an adverse pressure gradient tends to decrease there seems a 

tendency for Pr^ to be increased by a favorable pressure gradient (an accel- 
erating flow). Transpiration, apparently, does not Influence Pr^ unless 
there is an effect very close to the wall that is hidden in the experimental 
imcertainty in this region. 

Incorporated into the program to predict the general behavior of turbu- 
lent Prandtl number for gases, as well as low and high laminar Prandtl number 
fluids, is a conduction model for Pr^.. The model simulates the idea that an 
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"eddy" 

equilib 

lytical 


exchanges energy both in transit In the vertical direction and while 
rating with the surrounding fluid at the end of its travel. From ana- 
considerations, the model is expressed by 


Pr 


t 



+ acPe^ 


2 

(cPe^) (1.0 - expt-a/cPCj.] ) 


-1 


(2.37) 


In the 
a = 'JTJ 
the wakle 
for PRT 
Pr usin 


pbove equation, 
where PRT 

The programmed value for c 


PRT, 

region. The programmed value for c is 0.2, and the suggested value 
is 0.86. Equation (2.37) is plotted in Figure 2.4 for three values of 
k these constants. 


Pe is the turbulent Peclet number. 


(c /v)Pr, and 
M 

is the asymptotic value of Pr^ for large y , in 



Figure 2.4. Variation of turbulent Prandcl number with Pr. 
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2.5 Laminar- Turbulent Transition 

In laminar boundary layers, disturbances to the flow will either die out 
or grow; If the disturbances continue to grow, there will be a region down- 
stream where transition occurs, beyond which fully turbulent flow will even- 
tually be established. The onset of transition depends to a large extent upon 
whether the prevailing boundary conditions have a stabilizing or a de- 
stabilizing effect on the flow. Smooth surfaces and favorable pressure gra- 
dients (acceleration) can cause the former, and rough surfaces, adverse 
pressure gradients, and free-stream turbulence can cause the latter effect. 

For two-dimensional boundary layer flows over a smooth surface, with a 
constant free stream velocity, and with moderate free-stream turbulence, the 
onset of transition is usually considered to be related to a critical momentum 

thickness Reynolds number, Re . This is analogous to flow in a pipe where 

tran 

Re = 2300. Once transition commences, it will continue until the flow be- 
tran 

comes completely turbulent. 

Transition is modeled In the program by flagging the program to commence 
computation of turbulent shear stress and heat flux when the flow momentum 
thickness Reynolds number, exceeds effect a gradual transi- 

tion, the local value of is modified according to the empirical equation 

- A*^ + (300.0 - a"^) X |l.O - sin " ^tranj)} ’ 

for the region in the downstream flow direction where Re^^ ^^tran’ 
equation has the effect of smoothly increasing the turbulent viscosity in the 
near-wall region. A suggested value for 200. Transition with B 

is handled in a similar manner. 
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Giapter 3 


FLOW NEAR A WALL 

3.1 Computation in the Near-Wall Region 

Computation of a flow field involves solving the finite-difference equa- 
tions at discrete nodes in the cross-stream direction. The nodal spacing, or 
grid, can be coarse if velocity and enthalpy profiles are slowly changing be- 
tween nodes. For a turbulent flow, large gradients in velocity exist with the 
near-wall region requiring a fine nodal spacing. It is customary in most 
finite-difference turbulent calculations to have at least as many nodal points 
in the near-wall region (say the inner 20 per cent of the boundary layer) as 
are used in the remaining coarse part of the grid. 

In computing near-wall flows in this program, the Couette flow form of the 
boundary layer equations are solved between the wall and a point near the wall, 
the join point. At the join point the Couette flow solutions are matched to 
the finite-difference solutions, in terms of velocity and shear stress, and 
enthalpy and heat flux, and the resulting unknowns, wall shear stress and wall 
heat flux, are thus determined. 

In dealing with flow in the near-wall region, the program has two options. 
The first option is to * ^use the Wall Function ." Here the Couette flow equa- 
tions are numerically integrated over the region of high velocity gradient. A 
major advantage of this option is that it greatly reduces the required number 
of finite-difference nodes. Using the Wall Function is especially advantageous 
when computing high Reynolds number flows. 

The second option in computing flow near a wall is to ' 'bypass the Wall 
Fimctlon . ” Here the finite-difference mesh is carried down to the wall with a 
progressively finer spacing. Bypassing the Wall Function is recommended for 
large pressure gradients when the Couette flow approximation begins to lose its 
validity. 

3. 2 The Couette Flow Equations 

In the near-wall region both velocity and stagnation enthalpy profiles can 
have large gradients in the cross-stream direction, but their streamwlse gradi- 
ents are usually small. By neglecting these streamwlse gradients, the convectiv 
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transport equations are simplified to ordinary differential equations » and the 
integrated form of these equations is the Couette flow equations. 

To develop the Couette flow equations, the boundary layer equations will 
be recast In terms of shear stress and heat flux using 


T 


(y + 


. 3U 
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9y 


(3.1) 


and 


q 




k / 

k\ 


^eff 3 

fl* - 

JM' 


3y 




(3.2) 


These definitions are substituted into the momentum equation (2.7) and 
stagnation enthalpy equation (2.15), and they are re-written, along with the 
continuity equation (2.1), for plane flow (no-radius effect included). 


,T 

31 


3U ^ „ 3U 

-+PV^ 


,, 31 ,, 31 

P^ 17 ^ P"" 17 


3y 

^c(-f^l7-) ’ 

[q"-UTl + 


(3.3a) 
(3.3b) 
(3. 3c) 


These equations are non-dimensionalized using "wall coordinates". In the 
definitions which follow, the small zero subscript denotes a wall value. 


U " /g T /p^ , 
T c o o 

D* - U/0^ . 

< ■ ■ 

/ - . 

- t/t„ . 


(3.4a) 

(3.4b) 

(3.4c) 

(3.4d) 

(3.4e) 

(3.4f) 
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dP 


(3.4g) 




g ^ 
c o 
■ - V y 

^ A , 

P u'" 

O T 


(3.4h) 


for the momentum equation, and, in addition, 


- 


(3.41) 


+ 

q 


(3.4j) 

4 . 

V 


- 

0 

• s , 

q"U 
^0 T 

(3.4k) 

w * 


(3.4JI) 

Sc-’’;: 

for the stagnation .enthalpy equation. 



Integration of equations (3.3a) and (3.3b) with respect to y, 

combining 

and transforming to "wall coordinates" 

yields 



- 1 - vy . <P"-X") / [l - (^)(^/ dy 


(3.5) 


+ f 


where 


P„U dU 

OO 00 00 

T dx 

O 


& / ■/ (p1)(u1) 


P„U^ 


^ ' itXkf. 


The Couette flow form of the momentum equation used in the program is equa- 
tion (3.5) with f^ neglected. This form was developed by Julien et al. [5] ar 
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retains an integral term to better approximate a departure from Couette flow 
when is large. The additional term is exact for asymptotic accelerating 

flows . 

Integration of equations (3.3a) and (3.3c) with respect to y, combining, 
and transforming to "wall coordinates", yields 


q'*’ - 1 + + u\'’'w + u'*’y'’'x'^W + 8%'*' + g^ 

o ^ 


(3.6) 


where 










The Couette flow form of the stagnation enthalpy equation used in the program 
is equation (3.6) with g^ neglected. 


3.3 Using the Wall Function 

In the previous section it was seen that the Couette flow equations are 
merely first integrals of the Couette flow form of the boundary layer equations, 
and they relate wall shear stress and wall heat flux to shear stress and heat flux 
at some point away from the wall. By replacing the shear stress and heat flux 
with their constitutive equations, the Couette flow equations become first-order 
ordinary differential equations describing the variation in velocity and stag- 
nation enthalpy across the Couette layer adjacent to the wall. These equations 
are then numerically Integrated across the layer and matched to the finite- 
difference solutions for velocity and stagnation enthalpy, resulting In exr 
pllclt expressions for the wall shear stress and heat flux. The match-up point 
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is located mid\%’ay between the second and third finite-difference nodes from the 
wall and is referred to as the join point, or 2.5 point. 





(3.8) 


An ordinary differential equation describing momentun. transport across 
the Couette layer is obtained by equating (3.7) and (3.8), along with using 
the mixing-length hypothesis to model 



In the program the above equation is numerically integrated, using equa- 
tion (3.8) for t'*’, and equation (2.22 or 2.23) for D, from the wall out- 
ward to the join point. 

The join point, or match-up point, is located at y^ which is the 
arithmetic average of and y^, locating nodal points 2 and 3. The re- 

quired value of U at the join point Is ^ 25 * arithmetic average of U 2 
and , as computed from the finite-difference solution. 

Since the integration of equation (3.9) is in "wall coordinates", the 
upper limit to the integral needs to be in "wall coordinates". It is not yet 
possible to convert U_ _ and y~ to , and y^ . because T is 
still an unknown. However, a join-point Reynolds number can be formed which 
relates the "physical coordinates" to the "wall coordinates", 
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Re 


^2.5 ^2.5 


2.5 


(uV) 2.5 


(3.10) 


As = U^(y^) is evaluated from integration of equation (3.9), the U y 
product Is computed and compared to Re 2 ^ « Integration is terminated when 
the U'^y'*’ product equals Re 2 5 . With the join-point values of U 

and y'*’ now known, the wall shear stress and friction factor are computed 
from U« c and the definition of U » 


^1.5 

ec<”2.5>' 


and 


g 

C,/2 . 


P 

^00 00 


(3.11a) 


(3.11b) 


3.3.2 Stagnation Enthalpy Equation 

The constitutive equation (3.2) for heat flux is rewritten in 
terms of wall coordinates as 


^^ff 3y-^ ^ ^ ‘ 


(3.12) 


From Section 3.2, the Couette flow equation for stagnation enthalpy is 

(3.13) 


+ *+ + + 

1 + V I +UtW 
o 


+ U‘*'y‘'’x'’w + S‘‘‘y'*' 

An ordinary differential equation describing enthalpy transport across 
the Couette layer is obtained by equating (3.12) with (3.13), 


«!! . !!eff (1 + v"- I**) + 

, + + '■ o 

dy ]i 


(Pr ,,- 1 ).^ (if) * ^ SV) 

dy ' ' V 


(3.14) 
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In the program equation 3.14 is numerically integrated in the same loop 
as equation (3.9) for u'*’ . 

If the stagnation enthalpy boundary condition is a level type, i.e., 

I (x,0) = I^(x), then wall heat flux and Stanton number are computed from 
I* 5 , the arithmetic average of I* and I* , and the definition of I*^ , 


and 



U 


2.5 



I 


*+ 


2.5 



I 


* 

2.5 


) 


St = 



(3.15a) 


(3.15b) 


If the stagnation enthalpy boundary condition is a flux type, then the 
wall enthalpy and heat flux are linked through the total energy flux boundary 
condition (see Figure 2.2). 




•Tf T* 1 •!! 

ml + 

o o 


(3.16) 


For flux- type boundary conditions, equations (3.15a) and (3.16) are solved 

algebraically for I* and q" .. The Stanton number is then formulated from 

o o 

equation (3.15b). Note that the Stanton number evaluated in the program, 
equation (3.15b), is based on stagnation enthalpy difference, and not re- 
covery enthalpy difference. The latter would require knowledge of a "re- 
cover factor" which has no real significance or usefulness in the general 
problem, i.e., for other than constant free-stream velocity flows. 


3.4 Bypassing the Wall Function 

The second user option is to "bypass the Wall Function", implying the join 
point is in close proximity to the wall where laminar-like flow exists. For 
turbulent flows, this implies a join-point value y^ of less than, say, 2.0. 

In this region the viscosity ratio (u + is unity, and the Couette 

flow equations can be integrated in closed form. Match-up with the finite- 
difference solutions for velocity and stagnation enthalpy is similar to the 
procedure Involved in "using the Wall Function". 


28 



3.4.1 MomentuiD Equation 

To obtain an expression for at the edge of the Couette layer > 
the constitutive equation (3.7) for the shear stress is equated to the Couette 
flow equation for momentum (3.8) and integrated (with y *= 1 ) . " 


= y'*' + (V*^ -I- p'*' - x'*’) 

o 


exp(V^y^) - 1. - V^y'*’ 


(3.17) 


Recall that while u"*" and y"*" are unknown, their product is the join- 
point Reynolds number (see Section 3.3.1). 


Re 


”2.5 ^2.5 


2.5 


(uV) 


2.5 


(3.10) 


In the program, the solution to equation (3.17) is obtained by linear- 
izing and solving in three successive steps: 


2.5 


'2.5 


' 2.5 



,_+ + „+ + 

^ ^ (P 'X )y2.5 ^ V 2.5 


2 2 


(3.18a) 


(3.18b) 


(3.18c) 


After solving for Y 2 5 > the value of U 2 ^ is obtained from equation 
(3.10). The shear stress and friction factor are obtained from equations 
(3.11a-b). 
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3. 4,2 Stagnation Enthalpy Equation 

An expression for I*"*" at the edge of the Couette layer is ob- 
tained by integrating equation (3.14), which relates the constitutive equa- 
tion for heat flux to the Couette flow equation for stagnation enthalpy. 

In the integration, the viscous dissipation, work against body forces, and 

J- 

energy source terras are neglected. The resulting expression for , with 

\i equal to unity and to Pr , is 

i . exp[Prv\''’] - 1 

I* = 1 (3.19) 

V 


In the program, equation (3.19) is approximated by 


I 


*+ 

2.5 


Pr 


I ^ 

\ 2 


+ 



(3.20) 


After solving for I 2 ^ > the wall heat flux and Stanton number are ob- 
tained as described at the end of Section 3.3.2 , 


3.5 Routine LAMSUB 

As indicated in the previous sections, the Couette flow equations are 
solved from the wall out to the join point where y"*" = y^ - . The main func- 
tlon of the LAMSUB routine is to assure the condition 

YPMIN 1 72 5 1 YPMAX (3.21) 

where YPMIN and YPMAX are program input variables. 

When "bypassing the Wall Function", YPMIN must be zero, and YPMAX 
should be less than two (unity is recommended). This will give a join-point 
Reynolds number of less than four, thus assuring the assumption that turbulent 
viscosity can be neglected in the Couette flow equations. 

When "using the Wall Function" typical values for YPMIN and YPMAX 
are 20 and AO, respectively. These values bracket the upper limits of the 
Integrals, and assure that the Couette flow equations are not applied out- 
side their region of applicability. For a flat plate boundary layer, the 
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the 


upper limit might be 50 to 100, and for high Reynolds number flows, 
upper limit might extend out to between 100 and 200. For boundary layer flows 
with strong pressure gradient, the limit of applicability can drop to , 
near 15 — thus the reason for the Wall Function bypass option. 

Routine LAMSUB controls the join point value as follows: if y 2 5 drops 
below YPMIN, the routine removes the stream tube located at y^, and if 
y^ 5 becomes larger chan YPMAX, the routine inserts a new stream tube midway 

between y^ - and y . In both cases, after the grid has been readjusted, 

2*5 3 ^ ^ 

the wall function is again solved and the new Y 2 ^ is compared using equa- 
tion (3. 21) . 


3 . 6 Integral Parameters 

At each integration step, when one surface is a wall, the velocity profile 
displacement and momentum thicknesses, 6 ^^ and 62 * calculated along with 

the enthalpy thickness, A 2 , for the stagnation enthalpy profile. These 
thicknesses are defined as follows: 


h - {'■' 5 ^) f - ’ 

•'o' O 


'' o " 'I / o 
o 


( 3 . 22 a) 

(3,22b) 

-n 

( 3 . 22 c) 


where r is the wall radius. Integration is carried out in the program using 
o 

a trapezoidal rule. 

In the program the boundary layer equations can be solved with or without 
consideration of transverse radius of curvature. Generally, transverse curva- 
ture effects are important for thick axis 3 rmmetric boundary layers. If these 
curvature effects are considered, then 6 ^ and 62 are modified by solving 
the equations 
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(3.23b) 


,axl(^ ~ 


. cos a 
2 >axi 

2 r 


for 6 ^ and 6 ^ after calculating 6 ^ and 62 using equation ( 3 . 22 ) 

Figure 2.1 shows a and its relation to the wall radius. The proper sign choice 
is (+) for external flow over a body of revolution and (-) for flow inside 
a body of revolution (due to the coordinate system used in the program). 


3. 7 Pipe and Channel Flows 

If the flow is a confined flow, a friction factor, Stanton number, and 
Nusselt number are computed using the following definitions. 
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where the bar quantities are mean quantities. 

The mean stagnation enthalpy Is defined by 
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(3.27) 


The mean velocity Is defined by 
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and the Reynolds number Is defined as 
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( 3 . 29 ) 


The mean values for density, viscosity and Prandtl number are those val- 

* — * 

ues at the y location where I = I . 
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Chapter 4 


METHOD OF SOLUTION 

4. 1 Transformation of the Equations 

The continuity, momentum, and stagnation enthalpy equations were devel- 
oped in Chapter 2. The first step in transformation is to recast the convec- 
tive transport equations into stream function coordinates using the von Mises 
transformation. In essence, the y-coordinate is replaced by a coordinate 
that is constant along streamlines, namely, the stream function The new 

independent variables become x and and the U velocity component is 

defined by 


U 


rp 3y 


(4.1) 


In stream function coordinates the momentum equation (2.7) and the stag- 
nation enthalpy equation (2.15) become 
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pu ^ + 
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dP j. 
®c dx 




(4.2) 



Note that in the transformation the V component of velocity disappears 
and the continuity equation is no longer used explicitly, due to the defini- 
tion of the stream function. 

In the stream function coordinate system, the boundary layer fluid flows 
between two surfaces, I and E. The I-surface originates at y = 0, and the E- 
surface forms the second bounding surface. Sign convention for a positive y 
displacement is always from the I to E surface. Fluid crossing the I 
surface is m'^; this flow might be due to wall transpiration. Fluid crossing 
the E surface is m^; this flow might be due to entrainment. The bounding 
solid surface is described by a, related to the rate of change of surface 
curvature in the x-direction, and r^, which describes the transverse 
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curvature of the I-surface. Location of the E~surface, r^, is related to 
r and a. Figure 4.1 shows the coordinate system. 



Figure 4.1. The stream-function coordinate system. 


The sketch in Figure 4.1 depicts an external boundary layer over either a 
flat or conical surface, with I being a wall and E being a free stream. 

In the program, there is a limited freedom In defining these bounding surfaces. 
This will be discussed more thoroughly in Chapter 5. 

The second and final step in the transformation is to recast equations 
(4.2) and (4.3) into the P at ankar- Spalding coordinate system using the trans- 
formation 
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(4.4) 


where and if; are the stream function values on the bounding surfaces. 

E I 

In this non-dimensional stream function coordinate system, the momentum 
and stagnation enthalpy equations become 
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* 

ai 

_ j_ 

r^pupeff 

* 

91 

3x 

_ 


9(0 

9cj 

(lb -lb Pr 

^Sff 

9(0 


j 

fi - ^ 1 

-i- 1 


. s 


1 

f 3aj 1 

1 2/ 

pu 


The transformed equations have the general form of a diffusion equation: 
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(4.7) 


where a, b, c, d are constants. 

In the program, equation (4.7) becomes the velocity equation when Pr 

ef f 

is set equal to unity. 


4, 2 Finite-Difference Equations 

As indicated in Chapter 1, the original basic program from which STAN5 
has evolved is the Patankar/Spalding program, described in their 1967 book [1]. 
Only the numerics of the finite-difference equations and the concept of a wall 
function have been carried over into STAN5. It is our intent in this section 
to point out several facts regarding the finite-differencing scheme. These 
equations are well documented in Patankar and Spalding [1,2], and, for a re- 
vised version of the program, by Spalding [6], 

The central theme in obtaining the finite-difference equations, hereafter 
referred to as FDE’s, is twofold: (1) to form a miniature integral equation 
over a finite-control volume; and (2) to presume a linear variation of the de- 
pendent variable over the control volume to effect the integration. Figure 
4,2 shows node locations and a control volume for three adjacent nodes at an 
upstream and a downstream station. 

The first term in equation (4.7) is transformed into an FDE term, as fol- 

lows : 
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CONTROL 

VOLUME 



Figure 4.2. Typical nodal locations and control volume for finite- 
difference equations. 


The second term in equation (4. 7) is transformed into an FDE term using 
integration by parts: 
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- (a+bto)^ -<t>^ (4-;9) 

u,i-}5 d,i-ii 



In the above equation, the integral is evaluated in a like manner to 
equation (4.8). Several assumptions are built into equation (4.9): (1) the 
integrand of the integral is evaluated only at x^; (2) the equation is 

"linearized" in that (a+boj) is evaluated at x^; and (3) the integrand is 
presumed to vary linearly with O) over the control volume. Assumption (3) 
implies small cross-stream convection; this was later changed by Patankar and 
Spalding [2] using a "high lateral flux modification", or "upwind-differencing" 
to more properly account for high lateral convection. The modification is not 
used in STANS. 


37 



The third term in equation (4.7) is transformed into an FDE as follows: 
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The above equation is "linearized" in that c is evaluated at x . 

u 

The fourth and final term in equation (4.7) is the source term. It is 
transformed into an FDE term as follows; 
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(4.11) 


In STANS, the velocity source term is handled precisely as described by 
Patankar and Spalding [1]. Sources for stagnation enthalpy and turbulent 
kinetic energy are evaluated at x^; the downstream contribution is neglected. 

The FDE terms described by equations (4.8) to (4.11) are assembled into 
a form 


<() = A<{) + B<fr + C 

d,l *d,i+l *d,i-l 


(4.12) 


where A, B, and C are coefficients evaluated at the upstream station, x^. 
A set of (j) equations is written for each dependent variable. In the text 
which follows, the velocity dependent variable is designated as U, and all 
other dependent variables are designated as (J)-equation variables. 


4 . 3 Grid and Slip Scheme 

A sketch of the finite-difference grid and nodal locations was previously 
given in Figure 4.2. Cross-stream grid lines in that sketch divide the region 
between the I-surface and the E-surface into non-dimensional stream tubes, or 
flow tubes (from consideration of the definition of u)) . The number of flow 
tubes that comprise the cross-stream grid is denoted by N. Two additional 
stream tubes (to define slip points) are inserted by the program near the I 
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and E surfaces, making a total of N + 2 tubes, and thus N + 3 nodal 
points. A cross-stream grid is shown in Figure 4.3. 



In the above sketch, the 2.5 point on the grid Is the join point, dis- 
cussed in Section 3.3.1; the (2) point and the (N + 2) point are the slip, 
points. Finite-difference equations of the form of equation (4.12) are solved 
for all nodes (2) through (N + 2) . Boundary conditions for these equations 
are obtained through wall-function calculations, described in Chapter 3, if 
one surface is a wall. 

The grid is established from the initial velocity profile, U - U(y). 

The profile is integrated ixsing equation (4.1) to obtain U * U(ip) , where flow 
between consecutive y locations is A4<, or non-dlmenslonally Au. The Au) 
values, which represent the fractional amount of the initial flow, remain con^- 
stant throughout the calculations, unless altered by routine LAMSUB, discussed 
in Section 3.5. The amount of boundary layer fluid can change, but the frac- 
tional percentages in each stream tube are fixed. 

The slip points, along with "using the Wall Function", were developed by 
Patankar and Spalding [1] to allow use of a linear profile assumption (Section 
4.1) in the near-wall region, thus eliminating the need to compute across a 
region of high velocity gradient. The scheme is an excellent "engineering 
tool" in terms of computational speed while preserving accuracy. 
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The idea behind the slip scheme is to presume power-law profiles for 
velocity and other 4>-equations in the near-wall region* 

_ U = , (A. 13a) 

= C2y^ . (4.13b) 

Each of the above equations contains two unknowns, which are obtained by match- 
ing the function and its first derivative (e.g., shear stress or heat flux) at 
the join point. From these two criteria come defining FDE's for the slip 
points. 


^2 “ ‘ (4.14a) 

<t>2 ^ . (4.14b) 

The above equations are linearized in that the upstream values of 3 and y 
are used. Similar types of equations can be developed for slip values near a 
free stream and near a symmetry line (see Patankar and Spalding [1 or 2] for 
a con^lete description). 

The procedure described above to obtain slip values near a wall was later 
changed by Patankar and Spalding [2] to more accurately account for convection 
between the wall and the join point. In STANS, this correction was accom- 
plished by a modiflc^ttion to the join-point velocity and essentially accom- 
plishes the same goal. The correction is needed for low values of 6; for 
6 > 0.9, i.e., a linear profile In the near-wall region due to laminar flow 

or "bypassing the Wall Function", the power- law slip scheme Is adequate. 

4.4 Entrainment and Grid Control 

Entrainment Is applicable to flows In which there are free surfaces. 

For example, the free surface for a wall boundary layer Is the location where 
U approaches 11^,^, I.e., its cross-stream gradient approaches zero. The 

function of entrainment is to introduce new fluid into the region between the 
I and E surfaces , thus expanding the grid outward Into "fresh" fluid and 
thus preserving the near zero gradient at the outer edge of the computation 
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region. The expansion can be easily seen by recalling that to increment 

with a constant Aw spacing causes Atj; to increase and thus Ay. ' 
The entrained fluid is distributed to all flow tubes. 

To determine if fluid should be entrained, the dependent variable dif- 


ference near the free surface is compared with its free-stream value, e.g., 

(U --U ,)/U. is computed and compared to ENFRA, a program input variable. 

N+ 3 N+ 1 3 

This idea is depicted in Figure 4,4. The entrainment calculation for veloc- 
ity in STMS is 
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(4.15) 



Figure 4.4. Entrainment at the free stream. 

When there are ({(-equations being solved in addition to the momentum equa- 
tion, each of these gradients near the free stream is checked to assure no 
defects in profiles develop. This is especially Important in accelerating 
flows or low Prandtl number flows, where the thermal boundary layer grows out- 
side of the momentum boundary layer. There is a flag in STMS that can be set 
to base entrainment on either the momentxim equation or on the behavior of all 
equations. Note that in STANS, fluid is never allowed to be detrained, due to 
stability considerations. 
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Integration stepsize, Ax, is partly determined by entrainment. The 
control is via an input variable FRA, say 5%, which requires that the mass 
flow rate into the boundary layer through the I and E surfaces be no more 
than FRA * over the distance Ax. This control, in effect, cuts 

back the stepsize if the boundary layer entrainment is large. 

4 . 5 The Calculating Procedure 

Equation (4.12) in Section 4.2 is the general form for the finite-differ- 
ence equations. The equations couple all grid points in the cross-stream di- 
rection, and they are solved by a tri-diagonal matrix algorithm for 1=2 
to N + 2. They have been linearized in the sense that the coefficients are 
calculated at the upstream stations. Thus, the program is "one step behind" 
in fluid properties, eddy viscosity, etc. 

Because of linearization, the equations are only partially implicit, and 
this requires the use of a smaller Ax stepsize than could be used by a fully 
implicit scheme. For heat transfer calculations this does not present much of 
a problem, though, because the stepsize must be small enough to follow vari- 
able boundary conditions. 
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Chapter 5 
INPUT /OUTPUT 


5 . 1 Introduction 

To facilitate use of the program, a rather flexible input format has been 
developed which makes it possible to compile and link edit, and still accom- 
modate a large number of input options merely by reading in numerical DATA. 
Other changes can be readily made in the core of the program, but the objective 
of this chapter will be to describe in detail how to access the program through 
DATA that are read directly by the computer. 

All of the data input to the program are concentrated in the final sub- 
routine which is labeled SUBROUTINE INPUT (KERROR) . This subroutine contains 
a very large number of comments which in themselves constitute a set of in- 
structions for its use. In reading this chapter It will be useful to refer to 
the input subroutine, and the present discussion will be based on the assump- 
tion that the reader has the input subroutine before him (her). ^ 

First it should be noted that each "read" statement is preceded by the 
symbols ******* extending across the page. Preceding these symbols the in- 
structions for the "read" statement are given. 

All of the "read" statements (except the title) are in the form of either 
a series of integer numbers or a series of decimal numbers. All of the inte- 
ger numbers are in fields of five spaces. It is important to note that inte- 
gers must be justified to the right side of these fields. 

All decimal numbers are arranged in fields of 10 digits, and of course 
may be placed anywhere within that field. 

5.2 Flow Descriptors and Controls 

On the card following a title, eight integers are read, all of which con- 
vey rather fundamental information about the type of problem to be solved. 

Some of the program nomenclature will be Introduced as these, and other vari- 
ables and constants appearing below, are discussed. 

GEOM is an Integer, from 1 to 9, which signals in a general way the type 
of system geometry to be solved. GEOM “ 1 is the simple boundary layer on a 
flat plate, but this case also applies for an axl-symmetrlc body so long as 
the boundary layer thickness is small relative to the body radius. Thus it 


43 



can be used for flow in a nozzle (subsonic or supersonic), or for flow over 
an axi-“S3njimet ric body such as a missile, even including a stagnation region* 

GEOM * 2 & 3 differ from 1 only in that radius is included in the bound- 
ary layer equations so that boundary layer thickness need not be small relative 
to body radius. 

GEOM = 4 & 5 refer to flow in circular and flat ducts, respectively. 
Strictly speaking, the "boundary layer" is treated as if it filled the entire 
duct; however, a judicious choice of grid spacing makes it possible to handle 
entry-length problems with accuracy. It is also possible to solve pipes or 
ducts which have slightly convergent or slightly divergent walls. 

GEOM = 6, 7, 8, 9 cover the cases of circular and flat jets, and free 
shear flows. 

MODE refers to whether the flow is to be laminar or tubulent. MODE * 1 
is a laminar flow, while MODE * 2 is turbulent. As will be seen below, it is 
possible to start with MODE = 1 and then shift to a turbulent flow on the basis 
of an input transition criterion. 

FLUID refers to the type of fluid. FLUID » 1 is any constant-property 
fluid, such properties to be supplied in a later read statement. FLUID = 2 
refers to air, the properties of which (based on the Keenan and Kaye Gas Tables) 
are provided as a separate subroutine in the program. The air properties cover 
temperatures from 180®R to 4620‘*R, but do not take into consideration dissoci- 
ation at high temperatures. The program is not provided with the properties of 
any variable— property fluids other than air, but it is only necessary to desig- 
nate some other fluid with a number (3 or higher) and then construct a subrou- 
tine similar to SUBROUTINE PR0P2. The appropriate call for any other property 
subroutine must be Inserted as indicated in the MAIN program. 

NEQ refers to the total number of boundary layer equations to be solved. 
Thus, if the momentum equation alone is to be solved, NEQ * 1, but if momen- 
tum" and energy are to be solved, NEQ ** 2. Actually, the program dimensioning 
allows NEQ to be as high as 6, If, for example, a number of mass diffusion 
equations must be solved. Another related variable, NPH, will be found through* 
out the program. NPH ® NEQ - 1, and is the number of diffusion equations 
(energy, mass, etc.) that must be solved. It is assumed that the momentum equa- 
tion is always solved. 
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N defines the grid structure in the y-dlrection; it is the number of 
flow tubes. Thus the number of grid points in the y-directlon is N + 1. , Be- 
cause of the "slip*' scheme described earlier, the program Inserts two more ^ 
grid points, one near the I surface, and one near the E surface. Thus the 
total nunber of grid points with which the program works is N + 3. Within 
the program the grid points are numbered starting with 1 at the I (for in- 
ternal) surface and extending to N + 3 at the E (for external) surface. 

The character I is used to index the grid points, and I then varies from 
1 to N + 3. For convenience, the last three points are designated N?1 » 

N + 1, NP2 * N + 2, NP3 = N + 3. The two "slip" points, which have no real 
physical significance, are 1 = 2 and I = NP2. 

The choice of N determines how fine or how coarse a grid structure is 
to be used, and only experience can tell what is necessary to achieve desired 
precision for a particular problem. For a turbulent boundary layer when "using 
the wall function" (this will be discussed further below), N in the range 
15-20 is generally satisfactory. If "bypassing the wall function" is used, or 
if the flow is laminar, N should generally be greater than 30. If N is less 
than 12 the program will not operate, and N is limited to 50 by the dimension- 
ing of the program. However, this limitation can be readily changed, if desired. 
Finally, it should be noted that the program will change N internally under 
special circumstances to be discussed later in connection with the input values 
of YPMIN and YPMAX. 

KIN and KEX are indicators which determine the character of the I and E 
boundaries, respectively. If either is set equal to 1, that boundary is a 
wall; if set equal to 2, the boundary is a free stream; 3 indicates a line 
of symmetry, such as the centerline of a pipe or a free Jet. As presently assem- 
bled, the program will handle only one wall surface, so, for exatt^le, it is not 
possible for both KIN and KEX to be equal to 1. Note that the I and E 
boundaries are literally "inner" and "outer" with respect to the axi-symmetric 
coordinate system, so, for example, for flow in a pipe the I boundary must be 
the centerline of the pipe and the E boundary must be the pipe wall; they are 
not interchangeable. On the other hand, for GEOM = 1 the I and E bound- 
aries are interchangeable and either could be the wall. 

KENT is an indicator for the entrainment calculation at a free boundary. 

If there is no free boundary, KENT can be left blank. If KENT = 0 entrainment 
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is calculated based on the behavior of the momentum equation alone; if KENT = 1 
all diffusion equations are tested. Since it is quite possible for the thermal 
boundary layer, for example, to extend outside the momentum boundary layer, and 
one generally wants to adjust entrainment so that the region of interest (the 
region enclosed by the I and E boundaries) encloses the thickest boundary 
layer, it is generally wise to set KENT = 1. On occasion this can lead to 
some instability, and this is the reason why the option to set KENT =0 is 
provided. 

r' 

^ The next card to be read contains more general information, all in the form 
of decimal numbers, XU is the present location of the calculations in the x- 
direction, and is one of the primary Independent variables. Here XU is ini- 
tialized, so this is where calculations start. Most often XU is 0.0, but it 
can be any positive number where it is desired to commence calculations. 

(Actually XU refers to the "upstream” side of the finite-difference step in 
the _x-direction, as opposed to XD on the "downstream" side. The difference 
between XU and XD is DX, the step length.) XL is the x-distance where 
it is desired to stop calculations. Thus XU and XL, as read here, define 
the distance over which calculations are to take place. These are dimensional . 
quantities and may be in feet, inches, meters, or whatever is desired. The 
actual dimensioning system to be used is designated later. Recall, as shown in 
Figure A.l, that x is intrinsic, measured along the I-surface, and is not the 
projection onto the axis of symmetry. 

DELTAX is a number (non-dimensional) from which DX, the step-length, is 
derived. It is the ratio of DX to boundary layer thickness, so DX grows as 
the boundary layer thickens. For a pipe-flow It is the ratio of DX to pipe 
radius. Actually, DELTAX determines a maximum value of DX and can be over- 
ridden by another number, FRA, which will be discussed shortly. DELTAX * 1.0 
Is a reasonable value when dealing with a gas for which properties are varying 
rapidly. If properties are nearly constant considerably larger values may be used 
and this is particularly true for laminar flows. For fully developed flow in a 
pipe DELTAX can sometimes be made equal to 10 or greater. If DELTAX is too 
large, a slight instability will be noted, with oscillation of the output data. 

It is often advantageous to use large values of DELTAX to reduce computation 
time. A further option is available using the constant K1 and the auxiliary 
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boundary condition, AUXl(M) (see below), whereby DELTAX can be changed arbi- 
trarily in the course of a calculation. 

RETRAN provides a way to effect internally a transition from a laminar to 
a turbulent boundary layer. For a simple boundary layer, the momentum thick- 
ness Reynolds number is employed as a transition criterion, and RETRAN is the 
Reynolds number at which MODE will automatically shift from 1 to 2. Actually, 
the transition is made smoothly, rather than abruptly, over a range of momentum 
thickness Reynolds number from RETRAN to twice RETRAN by smoothly bringing the 
sublayer damping constant down from a large number to its equilibrium value 
(see SUBROUTINE WALL). Typically, a transition Reynolds number of 200-300 pro- 
vides realistic results. If it is desired to make laminar boundary layer cal- 
culations only, care must be taken to make sure RETRAN is a number larger than 
any momentum thickness Reynolds numbers anticipated. For flow in a pipe or 
duct, RETRAN is interpreted as a diameter Reynolds number, but of course diam- 
eter Reynolds number does not vary in the x-direction in this case. For totally 
turbulent boundary layers and flows, RETRAN can be 0.0, or left blank, if de- 
sired. For f ree-convection boundary layers, or for flows for which there is no 
wall surface, Reynolds number has no useful significance, so RETRAN must be set 
to unity. 

FRA, when multiplied times the total amount of flow between the I and" E 
boundaries, specifies the maximum amount of new fluid that will be permitted to 
enter the region of interest between XU and XD either by entrainment orby 
mass transfer through a porous wall. If this amount is exceeded by the speci- 
fied value of DELTAX, then DX is appropriately reduced in value. FRA • 0.05 
Is a reasonable value for most applications. 

ENFRA is the entrainment fraction. It has significance only when there Is 
a free-stream boundary, in which case it is the desired difference (expressed 
as a fraction of the total difference through the boundary layer) between the 
free-stream velocity, or the corresponding dependent variable in a diffusion 
equation, and the next closest grid point (excluding the slip point). This dif- 
ference is maintained by automatically adjusting the rate of entrainment of free* 
stream fluid. The appropriate value of ENFRA differs somewhat for different 
kinds of problems, and is also related to the chosen grid spacing near the outer 
edge of the boundary layer. Calculated results are not necessarily highly sensi* 
tive to the value chosen for ENFRA, but a very Inappropriate value can lead to 
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either instability (wild oscillations in entrainment rate and in boundary layer 
thickness) or inaccurate overall results. For typical boundary layer calcula- 
tions, turbulent or laminar, a value of 0.005 frequently works well, but a fine 
grid near the outer edge may suggest a value as low as 0.001. On the other 
hand, for a free-convection boundary layer or any case where free-streatn veloc- 
ity is at or near zero (for example, a jet) ENFRA should be very much larger, 
0.01 to 0.05. One way to get a handle on ENFRA, in any case, is to plot the 
initial velocity profile, perhaps based on an appropriate analytic solution, and 
then superimpose the desired grid on the plot. The difference in velocity be- 
tween the free-stream and the next adjacent grid line, divided by the maximum 
velocity difference for the whole boundary layer, is then usually a good value 
for ENFRA. 

If there is no free-stream, as would be the case for pipe-flow, then ENFRA 
can be left blank. 

GV is a gravity constant which shoxild be either set at zero or left blank 
if gravity is not a relevant parameter. The only gravity effects that can be 
considered are those in the direction of flow (x-direction) . Note that a posi- 
tive value of GV represents a gravity force in the positive or flow direction; 
if simple free-convection on a vertical flat plate is being considered, remember 
that GV must be negative . Note also that gravity has no effect unless there are 
density gradients across the boundary layer; the free-convection boundary layer 
Is a. compressible flow botjndary layer, and nothing will happen if FLUID = 1. 

5. 3 - Body Forces and Sources 

The next card read concerns some Integer indicators having to do with body 
forces in the momentum equation, and energy and other types of sources in the 
diffusion equations. BODFOR can be 0, 1, or 2. If 0, there is no body force 
present other than pressure. If BODFOR ■ 1, the body force is the result of 
a gravity force acting upon density, and of course a value for GV must also be 
specified. 

..If BODFOR *2, an external body force is present, and this force is in- 
troduced through a specified set of auxiliary boundary conditions AUXl(M), 
which will be discussed later. Provision is made only for a body force that is 
a function of x, and independent of y. BODFOR * 2 also Includes BODFOR * 1. 
A body force has the dimensions force per unit of volume. 
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The source indicators » SOURCE(J), are not read unless there are one or 
more diffusion equations in addition to the momentum equation, i.e. , unless 
NEQ is greater than 1, and NPH is greater than 0. The index J varies from 
1 to NPH so that one value for SOURCE is read for each diffusion equation, read- 
ing across the card in integer fields of 5, after BODFOR. 

If there is more than one diffusion equation it must be decided ahead of 
time which is which, and the designation of a source for each equation estab- 
lishes what kind of a diffusion equation it is to be. Of course, the Initial 
dependent variable profiles and the boundary conditions, both of which are dis- 
cussed later, must be consistent with this choice. 

If there is to be no source for a particular diffusion equation, set 
SOURCE =0, or at least leave it blank. If SOURCE = 0, the equation could 
be the energy equation with viscous dissipation neglected, or it could be a 
mass diffusion equation with no chemical reaction. Only the initial and bound- 
ary conditions serve to make a distinction (together also with the Prandtl or 
Schmidt number) , since the differential equations are identical. 

SOURCE = 1 activates viscous dissipation as an energy source, as well as 
body-force work, and the equation is then definitely the energy equation. 

Setting. SOURCE = 2 for a particular diffusion equation has more exten- 
sive effects. It activates the source function for the turbulence energy 
equation (Production-Dissipation) , but additionally it changes the method of 
calculation of eddy viscosity (and thus eddy conductivity) from the mixing-length 
method to the turbulent kinetic energy method, wherein eddy viscosity is propor- 
tional to the square root of the turbulent kinetic energy. However, the program 
still uses mixing— length In the Wall Function, and it still uses mixing-length 
out to the edge of the viscous sublayer if the Wall Function does not extend 
that far. If there is no wall, turbulent kinetic energy is used throughout. 

SOURCE = 3 is the same as SOURCE = 1, except that an external energy 
source, as a function of x alone, may be introduced through AUX2(M). Such 
a source must have the dimensions (energy)/ (volume * time). 

SOURCE = 4 also Implies that an external volume source is being introduced 
through AUX2(M), but viscous dissipation and body-force work are omitted, so 
this could be a source different from energy. 

Note that all of these external body forces and sources which are intro- 
duced through the auxiliary functions AUXl(M) and AUX2(M) are functions of 
x only. This is obviously somewhat limiting, but the only practical way to 
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introduce sources that vary In the y-direction is by modifications in the core 
of the program. However, this can be easily done in SUBROUTINE AUX, where some 
comments are given. 

5.4 Fluid Properties 

The next card is the one in which fluid properties are introduced. The 
amount of information actually read depends upon whether constant properties are 
to be used or whether the variable properties contained in a separate property 
subroutine are to be used. In any case the initial static pressure PO is 
always read, and for the variable property case this is all that is needed. For 
constant properties, density, RHOC, and viscosity, VISCOC, are next to be read; 
if only the momentum equation is to be solved this is all that is necessary. 

If one or more diffusion equations are to be solved, the only additional prop- 
erty is the Prandtl number for the energy equation, PRC(J), or a Schmidt num- 
ber for each and every mass diffusion equation, making sure that they are read 
in the same order as has been established for designating each equation, i.e., 

J * 1 refers to a particular diffusion equation, and J = 2 to another, and 
this order must be maintained throughout the entire input routine. Note that 
although the symbol PRC(J) is used, this can be either a Prandtl or a Schmidt 
number. Finally, all units must comprise a consistent set. Note that the read 
statements are so arranged that it doesn’t matter if there is a redundancy of 
Information. Thus the program might be set up to solve both momentum and 
energy equations with constant properties; but if in the second card FLUID is 
changed to 2 the program will run with variable air properties and simply will 
not read the constant properties (except PO) . Similarly, if NEQ is changed to 
1, the program will not read Prandtl number or anything else having to do with 
a diffusion equation; it is not necessary to remove this input information if 
an abbreviated problem is to be run. As a word of caution, do not try to solve 
the momentum equation alone without setting FLUID ■ 1 and supplying the ap- 
propriate constant properties. There is no way to Introduce variable proper- 
ties without temperature or mass concentration distributions upon which to base 
them. 
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5. 5 Boundary Conditions 

The next card supplies some information about types of boundary conditions, 
and the number of entries read depends upon the number of differential equations 
to be solved. NXBC, an integer number, refers to the number of points along 
the boundaries at which boundary condition information is to be supplied. The 
cards following will contain that information. Internally, the program will 
determine boundary values at each XU position by linear interpolation between 
the x-positlons of the input boundary data as specified here. Thus NXBC must 
have as a minimum a value of 2 so that there is something to Interpolate between. 
If boundary values are varying with respect to x in other than a linear man- 
ner, many more than two boundary values may be required for an accurate repre- 
sentation. The program is dimensioned such that NXBC may be as large as 100. 
Free-stream velocity is evaluated from a cubic spline fit scheme rather than 
linear interpolation, except that when NXBC * 2 linear interpolation is used. 

The other items read on this card refer to the type of boundary condition 
at a wall that is going to be supplied for any and all diffusion equations. 

If there is no wall nothing is read, and the same is true if only the momentum 
equation is to be solved. TYPBC(J) can be either 1 or 2, depending upon whe- 
ther the boundary condition read is to be, respectively, a specification of the 
value of the dependent variable at the wall, or the flux of the dependent vari- 
able at the wall. In the case of the energy equation, the question is whether 
it is the enthalpy at the wall or the heat flux that is to be specified. For 
the turbulent kinetic energy equation set TYPBC(J) “ 1. Of course a specifi- 
cation for every diffusion equation must be supplied, and in the proper order. 

The following card continues boundary specifications. These items, all 
decimal numbers, are read in the form of a table. The number of lines in the 
table must be equal to NXBC. X(M) is the x location of the points where 
boundary information is to be supplied. The first entry, X(l), must be equal 
to or less than XU read earlier; the last entry, X(NXBC), must be equal to 
or greater than XL. For a variable velocity boundary condition, the value of 
XU must coincide with an X(M) in the table. Between the first and last 
point, the spacing of any other boundary condition points can be completely 
arbitrary. Discontinuities, for exaitple, can be simulated by placing two points 
very close together. When free-stream velocity is changing rapidly, it is im- 
portant to use a large number of points and not produce situations that a spline 
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fit will have difficulty accommodating; abrupt changes of velocity are trouble- 
some and can lead to unwanted velocities between the specified points. 

RW(M) is a geometry specification for an axi-S)mimetric body. It is the 
transverse radius of the body at each specified x-location. Note that RW is 
a function of x, distance measured along the surface, and not the projection 
onto the axis of symmetry. The boundary layer can be either on the inside or 
the outside of the body for GEOM = 1. GEOM = 2 and 3 are restricted in 
this regard. For a pipe, GEOM = 4, RW(M) is the pipe radius. For a bound- 
ary layer on a non-axisymmetric body, for example a flat plate or an airfoil, 
use GEOM = 1 and set all values of RW(M) equal to any constant number, 
such as 1.0. For an axi- symmetric stagnation point use GEOM = 1 or 2 and set 
RW(M) = X(M). For a flat duct, GEOM - 5; RW(M) is the duct half-width. 

Two additional pieces of boundary condition information can, if desired, 
be read on this card, AUXl(M) and AUX2(M). It has already been noted that 
these auxiliary items can be used for specified body forces or specified inter- 
nal heat sources, if proper indicators are activated. AUXl(M) can also be used 
to provide a control on DELTAX. These functions, however, are provided in gen- 
eral so that the user can conveniently introduce any kind of information that is 
a function of x, and then appropriately modify the core of the program to make 
use of the information. If there is a wall present, the program additionally 
calculates two more functions, AUXMl and AUXM2, which are linearly interpo- 
lated values of AUXl(M) and AUX2(M), and are always available in the COMMON. 

The primary boundary condition data are read on the next cards, again in 
the form of a table In which the number of lines must equal NXBC. UG(M) is 
the free-stream velocity which must always be supplied if there is indeed a free 
stream. (In the case of a pipe or duct flow this coliimn can be left blank.) 

A particular feature of this version of the program is the fact that free-strear 
velocity is treated as an independent boundary condition rather than pressure 
or. pressure gradient. A minor modification of the basic program is necessary 
if pressure is to be the independent boundary condition. Note that UG is zero 
for simple free convection, or for a jet In a stagnant environment. 

The second column (second field of 10 spaces) is the mass flux at the wall, 
AM(M) . If there Is no wall this column is simply not read* AM is positive in 
the positive direction of the coordinate system. Thus, If the I boundary is 
a wall, positive AM is mass transfer into the boundary layer, but if the E 
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boundary Is a wall (as in pipe-flow) , negative AM is mass transfer into the 
boundary layer. 

The next five columns are read only if there is a wall and if one or more 
diffusion equations are to be solved, FJ(J,M) is either the wall value of 
the dependent variable in a diffusion equation or it is the wall value of the 
dependent variable flux. Whether it is a wall value or a flux is determined 
by TYPBC(J), discussed above. Thus for the energy equation FJ is either 
a wall value of enthalpy or a wall value of heat flux. The sign of the flux 
is again positive in the positive direction of the coordinate system which goes 
in the direction from I to E. Thus, for flow in a pipe, a heat flux into 
the fluid results when FJ is negative. Care must be taken when FJ is a 
flux and there is mass transfer at the wall. FJ is then the product of the 
mass flux and the value of the property in question in a reservoir outside the 
wall. For example, for the energy equation with FJ as a flux, FJ is the 
product of AM and the enthalpy of the transferred fluid in an external reser- 
voir. For the turbulent kinetic energy equation, FJ should be 0,0, 

5.6 Initial Profiles 

The next series of cards contains the initial or starting profiles for 
velocity and the dependent variables for each of the diffusion equations, these 
are read in the form of a table, as in the previous case. The number of entries 
in the vertical columns must be equal to N + 1. Each column again occupies 10 
spaces. 

The first column contains Y(I), the distance measured from the I-boundary 
for each of the grid points at which the other information is to be supplied. 

In Y(I), I is an Integer which varies from 1 to NP3, but 2 and NP2 are 
omitted, since these are the slip positions which are evaluated within the pro- 
gram. Thus the table will contain N + 1 entries, Y(l) Is always 0.0, since 
y is measured from the I-boundary. 

The spacing of the various Y(I) is very important, since it establishes 
the cross-stream grid for the entire botmdary layer calculation. First, the ob- 
vious fact should be noted that it is not possible to start finite-difference 
calculations with this program from a singularity; starting profiles are manda- 
tory, but the boundary layer can be as thin as desired, although a very thin 
starting boundary layer may require a large number of calculations to progress 
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very far in the x-directlon. Generally, the starting profiles are where analyti 
boundary layer solutions can be used to great advantage. Typically, one knows 
soTTie thing like moinentuin thickness Reynolds number at the start, and simple ana- 
lytic solutions can then be used to establish initial total thickness and initia 
profile shapes. Actually, since boundary layers, and especially turbulent bounc 
ary layers, come to equilibrium relatively quickly, the initial profile shapes 
are often not at all critical; it important that the initial integral param- 
eters (such as momentum and enthalpy thickness) be close to correct. For exam- 
ple, a laminar boundary layer calculation could be started with a simple linear 
velocity profile, and within a few dowmstream steps the correct profile will be 
closely approximated. An exception to this discussion is flow in a pipe or 
duct w^here the ^'boundary layer thickness” is always the distance from the wall 
to the centerline. It is possible to start such calculations with a uniform 
velocity profile and thus calculate the velocity entry length, but for accuracy 
this docs require using a relatively fine grid spacing near the w^all. 

Now, to get back to the Y(I) spacing, the reason it is so important is 
that the program reads the initial data, calculates the fluid flow in each flow 
tube, totals this for the entire region from I to E, and then calculates 
the fraction of the flow in each flow tube. As the boundary layer grows, the 
total flow in the region I to E may grow due to entrainment and/or mass 
transfer, and the distance from I to E may grow, but the fraction of the 
total flow in each flow tube is maintained constant. The fraction of the flow 
from the I-boundary to some Y(I) is given the symbol OM(I) (omega). Thus 
the flow between the I and the I + 1 grid point is OM(I-f-l) - OM(I). It is 
these initial values of OM(I) that remain the same throughout the calculation 
(with an exception to be discussed below). Now there is no requirement that 
the OM spacings be uniform; on the contrary, it is generally more efficient 
if they are not. But it ^ important that the OM spacing differences between 
adjacent flow tubes not be too large. As a rule of thumb, differences greater 
than a factor of about 3 should be avoided. A good way to set up the initial 
velocity profile is to lay it out on a piece of graph paper and then superlmpos- 
lines for grid points, crowding them closer together in the regions where veloc- 
ity is changing rapidly. A mental estimate of the relative flow rate between 
each pair of grid lines will usually suffice to make sure that large steps in 
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flow rates are avoided. This graphical procedure was also recommended as a 
guide for specifying entrainment fraction. 

If there is a wall and the boundary layer is turbulent, a decision must 
be made whether to use a small number of grid points, along with "using the , 

Wall Function", or to "bypass the Wall Function" and use a fine grid down to 
the wall. For a great many calculations the results will not differ much, and 
"using the Wall Function" is a little simpler and cheaper in computation time. 
For very high Reynolds numbers there is really no choice; a grid fine enough to 
allow "bypassing the Wall Function" may require an excessive number of grid 
points. "Bypassing the Wall Function" does become useful where pressure gradi- 
ents are large,' or boundary conditions are changing rapidly along the wall, or 
it is simply desirable to have a print-out of the variables near the wall. The 
accuracy question comes down to the adequacy of the Couette flow approximation, 
which is used in the Wall Function. For large adverse pressure gradients, for 
example, the Couette flow approximation begins to yield a substantial error in 
local shear stress in a typical case when y^ becomes larger than about 15 
or 20. 

When "bypassing the Wall Function", it is necessary that U and y at the 
first grid point (1*3 if F'"N =1, or I = N?1 if KEX = 1) be so chosen 
that y"*” is about 1.00, or less. This can be checked by multiplying U by y 
and dividing by kinematic viscosity, which gives the product U y . In this 
region = y^, approximately. The spacing of the grid points farther from 
the wall can then be gradually Increased by steps of perhaps 20 percent out to 
about y^ *= 20, and 25-30 percent thereafter, i.e. , = 1.2, 1.4, 1.7, 2.1, 

etc. 

When "using the Wall Function" it is important that the first grid point 
be at a value of y"*^ not less than about 20.0. The subsequent points can 
then be spaced at intervals that Increase by 25 to 30 percent, i.e., 25.0, 

31.0, 39.0, 49.0, etc. 

For both cases, after y^ becomes greater than about 200, quite large, 
equally spaced steps generally can be used because velocity is no longer chang- 
ing rapidly. The important thing is to concentrate the grid where rapid changes 
are taking place. 
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It Is Important that the velocity at the free-stream edge of the boundaxry 
layer be precisely the same as the value of free-stream velocity introduced as 
a boundary condition earlier. 

Having once established the initial velocity profile, the other columns 
are filled in with the corresponding Initial dependent variable profiles for 
the diffusion equations, all in the same order as discussed earlier. Any of 
these can be totally zeros if desired, or all equal to the free-stream value, 
as would be the case for a heat transfer problem with an unheated starting 
length. For turbulent kinetic energy it is possible to start with all zeros 
and the program will generate its own kinetic energy. In any case, the wall 
value of turbulent kinetic energy should be 0.0. In the case of the energy 
equation the dependent variable is always stagnation enthalpy, not temperature. 

The value of the dependent variable in the diffusion equations at the outer 
edge of the boundary layer is always constant, and is established by the value 
specified in the initial profiles. 

5.7 Turbulence Constants 

Some of the turbulence constants are read in the next cards. If the flow 
is laminar, dummy turbulent values can be used, or these entries can be left 
blank. If there is no wall, some of the constants are also redundant. 

AK is the wall region mixing-length constant, kappa. There is not total 
agreement on the value of kappa, but 0.41 Is extensively used. ALMGG is lambda, 
the outer region mixing- length constant (or outer region length-scale constant 
when turbulent kinetic energy is used). There is also a constant eddy dlffu- 
sivity option available (see below) in which case ALMGG becomes a dummy. For 
bovmdary layers a value of 0.085 appears reasonable; for flow in a pipe 0.07 is 
suggested, but the constant diffusivity option is recommended for pipe-flow. 

For a boundary layer the value for ALMGG Is overridden at momentum thickness 
Reynolds numbers below about 5500 by an internal correlation that yields a higher 
value. This override can be suppressed by setting K2 » 3 (see below). 

ALMGG is a non-dimensional constant which yields a mixing-length when 
multiplied by boundary layer thickness- But ^’boundary layer thickness" must be 
defined, and FR provides this definition. If FR is set equal to 0.01, the 
boundary layer thickness upon which ALMGG is based is the distance from the 
wall to the point where the velocity is within 1 percent of free-stream velocity. 
The suggested values for ALMGG given above are based on FR ** 0.01. 
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AQ and BQ are turbulence constants which are used for the turbulence 
energy equation, but also for the constant eddy diffusivity option. In the 
former case AQ is the eddy diffusivity constant while BQ is the dissipa- 
tion constant. Of the three constants, AK, AQ, BQ, only two are independent. 
The three are related by the equation: 

AK = (AQ ** 0.75)/(BQ ** 0.25) 

If AK = 0.41, some reasonable values for AQ and BQ are 0.22 and 0.38. 

Vhen the constant eddy diffusivity option is used (set K2 *= 2 , see below), 
eddy diffusivity in the outer region is evaluated from the equation: 

= AQ * (Reynolds number) ** BQ 

For an external boundary layer, momentum thickness Reynolds number is used; for 
flow in a pipe or duct, diameter Reynolds number is used. Reasonable values 
for the pipe case are AQ = 0.005, BQ = 0.9. 

YPMAX and YPMIN are controls on the values of y*^ at the outer edge of 
the Wall Function. They are operable whether the flow is laminar or turbulent, 
but are meaningless if there is no wall. Routine LAMSUB provides a scheme 
whereby extra grid points can be automatically inserted between the wall and 
the next point out, or grid points can be removed from the same region. In 
other words, the grid number N is changed. YPMAX sets a maximum limit on 
the value of y"*" at the outer edge of the Wall Function. If this limit is ex- 
ceeded an extra grid point will be inserted. YPMIN sets a minimum limit on 
the value of y"^ at the outer edge of the Wall Function. If y"*” at the outer 

edge is less than this limit, the grid point nearest the wall will be removed. 

When using the Wall Function, a typical procedure is to set YPMIN * 20.0 
and YPMAX * 50.0 to 100.0. When bypassing the Wall Function, set YPMIN = 0.0 
and YPMAX * 1.0. This scheme is also useful in setting up the initial pro- 
files when it is desired to bypass the Wall Function. For example, a rather 

coarse grid can be introduced in which y at the innermost point Is , say , 

50.0. Then if YPMIN = 0.0 and YPMAX » 1.0, the program will insert a se- 
ries of points down to near y"*" ** 1.0, with optimal spacing. 
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The damping function constant for the viscous sublayer is read in the 
next card. Txi/o options are available, together with some variations. APL re- 
fers to in the Van Driest exponential damping function scheme; BPL refers 

to b”*" in the Evans linear damping function scheme. The program will use the 
scheme for which the larger number is indicated, i.e., if APL is larger than 
BPL, the Van Driest scheme will be used, and vice versa. In either case an 
empirical internal correlation is used to modify the value of APL or BPL to 
account for the effects of pressure gradient and transpiration. For the Van 
Driest scheme, a"'" * 25.0 is suggested for external boundary layers, and 
a"*" =■ 26.0 for flow in a circular pipe, = 35.0 appears to be about correct 
for the Evans scheme. In any event, the user is urged to experiment with the 
constants and compare results against proven experimental data. If it is de- 
sired to not use the internal correlation for transpiration and pressure gradi- 
ent, SIGNAL should be set to 1.0; otherwise SIGNAL may simply be left blank. 
For example, the internal equation for the effects of pressure gradient is prob- 
ably not valid for a free-convection boundary layer, or for any boundary layer 
involving body forces in the flow direction, so in such a case set SIGNAL = 

1 . 0 . 

.The next card contains a lag constant, PPLAG, to account for the time 
required for the sublayer to adjust to different externally imposed conditions, 
such, as pressure gradient or transpiration. PPLAG = AOOO.O has been found to 
be reasonably satisfactory. 

Also in this card is read the turbulent Prandtl number, PRT(J), for each 
of the diffusion equations. PRT(J) is not read if the flow is laminar, nor Is 
it read if only the momentum equation is being solved. The program contains an 
internal calculation for turbulent Prandtl number near a wall, based on a con- 
duction model. The value of turbulent Prandtl number read here is the value for 
a region far removed from the wall. However, this value is used in the .near-wall 
analysis and does affect it directly and importantly. Right at the wall, tur- 
bulent Prandtl number is computed to be twice the value far removed from the 
wall. For the energy equation it has been found that PRT(J) » 0.86 gives 
reasonable results for air, and is also quite satisfactory for liquid metals. 

In the latter case the internal analysis yields a turbulent Prandtl nxjinber over 
the entire region of interest considerably greater than the value of PRT(J) 
read in the input. 
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For the turbulent kinetic energy equation the internal correlation is 
not used, and a value of PRT(J) =1.7 may be about right, although there is 
great uncertainty about this figure. 

If it is desired to suppress the internal calculation for turbulent Prandtl 
number and thus use a constant turbulent Prandtl number (or turbulent Schmidt 
number) throughout, set K3 = 3, as described later. 

5.8 Other Constants and Output 

The dimensioning system used is established in the next card. GC is the 

constant in Nev?ton's Second Lav; (g ) . If SI units are being used, GC = 1.0. 

^ 2 

If English Engineering units are used GC = 32.2 (lb^ft)/(lb^ sec ), etc. CJ 
is the proportionality factor in the First Law of Thermodynamics (J). Again, 
if SI units are used, CJ = 1.0; but with English Engineering units, J = 

778 ft-lbj/Btu. The other quantities read on this card, AXX, etc. , are merely 
auxiliary constants which may be employed by the user for special purposes, 
after making appropriate adjustments inside the program. 

The final card reads some integer numbers concerned with a number of dif^ 
ferent things. The first, NL^RUN, is the number of sets of DATA that are 
to be read. Ordinarily this would be 1, but DATA sets may be stacked if de---. 
sired. SPACE designates the number of integrations between output prints , ■ i. e. , 
if SPACE = 10, the program will print out a complete set of results every 10 
integrations in the x-direction. There are two special cases. If SPACE *-11, 
a one-Iine set of abbreviated results will be printed out for every integration; 
if SPACE = 21, a complete set of results will be printed every 20 integra- 
tions, and a one-line abbreviated set will be printed for every integration. 

OUTPUT is a number designating the particular output format to be used- 
Three are presently available, designated by the integer numbers 2, 4, 6- 

OUTPUT 6 is a general-purpose routine usable for any kind of problem. *- 
Complete profiles of all dependent variables are printed, together with numer- 
ous other pieces of information such as shear stress at a wall, heat flux, en- 
trainment rates, eddy viscosity, etc. This routine is the only one which is 
usable for KEX =1, as well as KIN = 1, and it is the only one which should 
be used when free-stream velocity Is at or near zero. 

OUTPUT 2 is especially designed for external boundary layers when the 
I-boundary is a wall. U and y are printed, as well as the dimensional 


59 



profiles; and the non-dimensional parameters C^/2, St, momentum thickness 
Reynolds number, enthalpy thickness Reynolds number, are all printed. 

OUTPUT 4 is a routine for flow in a pipe or duct. Parameters peculiar 
to this type of problem, such as mean velocity, mixed-mean enthalpy, and diam- 
eter Reynolds number, are printed along with the pertinent profiles. 

The options SPACE = 11 and 21 are available only for output routines 
2 and 4, 

Some additional data may be printed with any of the output routines by 
setting the indicator K1 (see below) to any number greater than 10. Five 
specially designated pieces of information, SP(1) , ... SP(5), will be prin- 
ted, but they must first be assigned at some point in the body of the program. 
This option simply provides the user with a simple method of capturing addi- 
tional information of his own choosing. 

The integer indicators Kl, K2, K3, have been mentioned several times In 
this chapter. These Indicators provide the user with a convenient scheme for 
causing particular things to happen within the program. They have already been 
used for a number of purposes, but the user still has the option for other uses. 
The uses already programmed are as follows; 

Kl greater than 10: Five specially defined pieces of information will 

be printed in all of the output routines. 

Kl equal to 9 or 20: DELTAX becomes equal to AUX1(M), and the input 

value of DELTAX is overridden. 

K2 equal to 2: Program will use the constant eddy diffusivity 

option in the outer region, rather than mixing- 
length. 

K2 equal to 3: An internal empirical equation for ALMGG will be 

suppressed, and the input value of ALMGG will be 
used throughout. 

K3 equal to 3: An Internal calculation for turbulent Prandtl num- 

■5 ber will be suppressed, and the input values of 

turbulent Prandtl number will be used as a constant 
throughout. 
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Chapter 6 


PROGRAM ORGANIZATION 
6.1 Structure of the Program 

Program STAN5 consists of a driver program and six subroutines* 

The driver program, MAIN, sets all boundary conditions and conducts the 
integration. In addition, fluid properties, entrainment, DX stepsize, and 
integral parameters are calculated in this routine* 

SUBROUTINE STEP is a package containing five subsections. In STEP(l), the 
initial slip points and 6 and y near the I and E surfaces are computed. 
STEP (2) computes the initial radii and converts the initial y’s to ijj's and 
then to d’s. These two routines are required only at the start of integra- 
tion or if LAMSUB readjusts the profiles. STEP (3) computes y*s from the veloc- 
ity profile, and the ^ distribution and the radii associated with these y 
locations. Also, the velocity profile is searched for its maximum and minimum 
values, and the boundary layer thickness is determined. In STEP(A), all finite- 
difference coefficients are formed and the resulting FDE’s are solved. STEP(5) 
is used to Initialize variables at the start of integration. 

If one of the bounding surfaces is a wall, SUBROUTINE WALL computes wall 
shear stress and heat flux, along with Cf/2 and St. The internal correla- 
tion for a"^ or b"*" as a function of V^, p"*", and and LAMSUB, are 

contained in this subroutine. 

Effective viscosities and effective Prandtl numbers for turbulent flow 
calculations are computed in SUBROUTINE AUX, and, in addition, all source 
terms for the <t)-equations , e.g., viscous dissipation or TKE production and dis- 
sipation. 

Printing during integration is via SUBROUTINE OUT, which contains three 
subsections, with the first designed primarily for external boundary layers, 
the second for pipe flows, and the third for a general output. 

SUBROUTINE PR0P2 is a variable-properties table for air at moderate tem- 
peratures, to be used with compressible flow calculations. 

SUBROUTINE INPUT reads and prints all input variables. In addition, it 
performs diagnostics on these variables to look for ^pitfalls’* associated with 
setting up a problem or incompatibilities among the variables. 
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6. 2 MAIN 

The driver of any program is generally the most complex routine, and the 
one contained in STAN5 is no exception. Therefore, it has been diagrammed 
and is given in Figure 6.1. Since the flow chart presents the sequence of 
events straightforwardly, no further discussion is felt necessary. 

6. 3 STEP 

Five sections comprise STEP(K), with STEPl, STEP3, and STEPA very simi- 
lar in content to that found in Patankar and Spalding [1,2]. 

STEPl computes slip-point quantities near the I and E surfaces and 
3 and Y (see Section 4.3). This routine is used only for the initial pro- 
files and for profiles readjusted by LAMSUB (see Section 3.5). 

STEP2 has two functions, and is used only for the initial profiles and for 
profiles readjusted by LAMSUB. It computes the radii that correspond to initial 
values of y in the velocity profile. It also converts the initial y table 
to using equation (4.1), and finally to U3, OM(I) , using equation (4.4), 

with arbitrarily set to zero. Note that integration of equation (4.1) be- 

tween the I and E surfaces gives mass flow rate per radian (or unit depth 
for two-dimensional flows). The variable PEI is this quantity. For internal 
flows, PEI remains constant (unless there is mass transfer at the wall), and 
foj external flows PEI is increased at each integration step due to entrain- 
ment or wall mass transfer. 

STEP3 has three functions; it is called at each integration step. This 
routine computes y locations of the nodes by integrating the velocity pro- 
file using equations (4.1) and (4.4) and the mass flow rate per unit radian, 

PEI. The radii are then calculated from the y’s. Finally, the velocity pro- 
file is searched to obtain maximum and minimum velocities, UMAX and UMIN, 
and the input variable FR is multiplied times (UMAX - LTIIN). The y table 
is then Interpolated to obtain the location for this product, YL; this vari- 
able is the boundary layer thickness, defined as delta sub (1.000 - FR) . For 
pipe flows YL is the wall radius. 

STEP 4 has two functions; it Is called at each integration step. It com- 
putes the velocity finite-difference coefficients AU(I), BU(I), and CU(I), 
and those for the <t) equations, A(J,I), B(J,I), and C(J,1). The FDE’s 
are then assembled and solved to obtain profiles for velocity, U(I) , and 
(f)-dependent variables, F(J,I). 


62 



5 START 


AlO set pressure gradient 


CALL INPUT to 
read input and 
check for errors 


— ^ 

58 CALL WALL 

A*, b"^, p*. V*. Bf'*', 
T^. C,/2, St 

LAMSUB 

1000 




LSUB > 0 


6 set initial wall mass flux 
locate XU, X(l)_< XU<X(NXBC) 


10 CALL STEP(l) to set 
Initial slip pts. 3, Y 


65 CALL AUX to calculate 
EMU, PREF* SU sources 


15 set fluid properties 


/ , \ I CALL PR0P2 

(variable props^ p, V. Pr 


XD > XL 


set wall mass flux 


205 set wall transverse 
curvature radius 


701 set wall cj) 
boundary conditions 


35 INTO * 0 or LSUB > 0 


CALL STEP (2) 
OM's, PEI 


70 CALL STEP(4) to 
calc, f-d coeffs. 
integrate eqns. at 
» XD 


CALL STEP (3) to calculate 
y’s, r’s, UMAX, UMIN, 


set XU - XD 


set entrainment 


345 set DX stepsize 
XD « XU + DX 


405 set body forces 


1000 another data set 


Figure 6.1. Flow chart of the driver routine in STAN5, 
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STEP5 is called at the beginning of the program to zero the arrays and 
initialize parameters, 

6.4 WALL 

SL^ROUTINE WALL performs the functions described in Sections 3.1 through 

3.5 to determine friction factor and Stanton number. It is called one or 
more times per integration (depending on whether LAMSUB is invoked) providing 
one surface is a wall. 

, The first part of the routine sets up the join point conditions for veloc- 
ity and stagnation enthalpy: ^ is YI; U 2 ^ is UI ; I 2 ^ is FI(J); 

and Re^ - is REW. The shear velocity U , UTAUW, is also computed using 
the wall shear stress from the previous Integration step. 

The second part of the routine sets up various source terms for the stag- 
nation enthalpy Wall Function equation (3.14). The variable C3 is W, C4 
is W • X^/2, and C5 is the term in equation (3.4k) to convert s to s"*". 
Since the non-dimensionalizations contain in the denominator; an adiabatic 

wall should be simulated with a very small but non-zero heat flux. 

In the third section Couette flow quantities are formed: PPL is P^; 

GPLj. is V^; and BFPLUS is X^. These quantities are then converted into 
effective values by solving a lag equation (2.25) for , GPLE; and for 

I *' I 0 I ^ 

(P -X )^££j PPLE. The constant in equation (2.25) is the input variable 
PPLAG. Finally, the A^ or b"** equation (2.24) is evaluated using these 
effective values. If transition from laminar to turbulent flow is in progress, 
a"^ or Is modified according to equation (2.38). 

The fourth section examines the join-point Reynolds number. If it is less 
than 4 (which is synonymous with setting the input variable YPMAX < 2), the 
Wall Function is bypassed (section six below); otherwise section five is used. 

The fifth section of SUBROUTINE WALL is "using the Wall Function". Here 
equation (3.9) is solved for u"^ and equation (3.14) is solved for I*"*". Both 
equations are numerically Integrated by a trapezoidal rule using progressively 
larger Ay*^ steps, DYPL. In the output from this section y^ ^ is YPL, 

U^ - is UPL, and I* _ is HPS(J). When the U y product equals Re« 
control is transferred to section seven, described below. During integration 
and are continuously monitored, and if becomes less than 0.1 or 
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y"*^ becomes greater than YPMAX, control is transferred to LAMSITB to insert 
a new point near the wall. 

The Wall Function bypass option is contained in the sixth subsection of 
WALL. Here equations (4.18a-c) are solved for y^ 5 . with ^ 2.5 c^o™P^ted 
from the definition of Re 2 

Outputs from either section five or six are used in section seven to com- 
pute wall shear stress, TAUW, using equation (3.11a). The friction factor, 

CF2 , is then formed following equation (3.11b). If there are no $ equations 
being solved, control is passed to section ten of WALL. 

If 4> equations are being considered, section eight is used, providing the 
Wall Function is being bypassed, and equation (3.20) is solved for ^2.5‘ 

Section nine uses I*"*”,, from either section five or eight to compute vzall 

Z J 

heat flux, QW(J) , and Stanton number, ST(J). If there is a total flux 
boundary condition, the wall value of 4> is computed (see Section 3.3.2). 

Routine LAMSUB is contained in the tenth section. It is invoked in accor- 
dance with equation (3.21), which is fully described in Section 3.5. 

6.5 AUX 

In the first part of subroutine AUX, the turbulent viscosity and conduc- 
tivity for each node is computed and added to its laminar counterpart to ob- 
tain an effective viscosity and conductivity. 

Computation of the turbulent viscosity at each node begins with evaluat- 
ing the damping function, DV(I), as described by equation (2.22) or (2.23). 

Then the X 6 mixing-length, AL, is evaluated according to equation (2.26), 

with X, ALMG, obtained from equation (2.27). If the flow is in the near-wall 

region, the mixing- length is switched to KyD, equation ( 2 . 21 ) 

Once a mixing- length for the node is established, the turbulent viscosity 

u EMUT is evaluated using either the Prandtl mixing-length model, equation 
t ’ 

(2.19), or the constant eddy viscosity model, equation (2.36), or the turbulent 
kinetic energy model, equation (2.28). The turbulent viscosity is added to the 
laminar viscosity to form an effective viscosity, EMU(I), as defined by equa- 
tion ( 2 . 6 ). 

If the stagnation entahlpy equation is being solved, the turbulent Prandtl 
number, PRTJ, is set either to its input value, PRT(J), or to a value cal- 
culated using the variable turbulent Prandtl number model, equation (2.37). 
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For TKE the input variable is the turbulent Schmidt number. An effective 
Prandtl/Schmidt number, PREF(J,I), is formed according to equation (2.14). 

In the second part of subroutine AUX all source terms for the (^--equa- 
tions are formulated. The sources are defined as all terms to the right of 
the equal sign after a ^-equation is transformed using equation (4.7), and 
f inite-diffcrenced according to equation (4.11). 
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Appendix I 

PROGRAM NOMENCLATURE 


A(J,I) 

A2 

AJE(J) 

AJI(J) 

AK 

ALMG 

ALHGG 

AM(M) 

AME 

AMI 

APL 

AQ 

AU(I) 
AUXl (M) 

AUX2 (M) 

AUXMl 

AUXM2 

AXX 


Finite-difference coefficient for cf^-equations • 

Integral term in Couette flow form of momentum equation. 

Linear-interpolated value of FJ{J,M) if flux type boundary condition 
and E“surface is a wall. 

Linear-interpolated value of FJ(J,M) if flux type boundary condition 
and I-surface is a wall. 

Kappa in Prandtl mixing-length model. 

Outer layer constant in Prandtl mixing- length constant, modified if 
low Reynolds number (K2^3). 

Input value of outer layer constant in Prandtl mixing-length model. 

Wall mass flux boundary condition, positive, in direction of increas- 
ing y. 

Linear-interpolated value of AM(J) if wall mass flux and E-surface 
is a wall. 

Linear-interpolated value of AM(J) if wall mass flux and I-surface 
is a wall. 

Van Driest damping coefficient in mixing- length model, input value 
SIGNAL=1.) or computed from internal correlation (SIGNAL=0.). 

Production constant in IKE model or constant in eddy diffusivity 
model. 

Finite-difference coefficient for velocity equation. 

Generalized x-direction body force for momentum equation (BODFOR-2) 
in units of force/unit volume, specified at each X(M). 

Generalized energy equation source [SOURCE(J)=2,3] in units of energy 
rate/unit volume, specified at each X(M). 

Linear-interpolated value of AUXl(M). 

Linear-interpolated value of AUX2(M). 

Not used by program. 
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BETA 

BF(I) 

BFPLUS 

BODFOR 

BPL 

BQ 

BU(I) 

BXX 

C(J,I) 

CAY 

CF2 

CJ 

CSALFA 

CU(I) 

CXX 

DELI 

DEL2 

DELS 

DELTAX 

DPDX 

DX 

DXX 


Finite-difference coefficient for 4)-equation. 

Power of y in slip scheme, near— wall region. 

Body force term for momentum equation (gravity, AUXMl for BODFOR^^O) 
Body force in "wall coordinates" (X ) . 

Type of body force for momentum equation. 

Evans damping coefficient in mixing- length model, input value 
(SIGNAL=1.) or computed from internal correlation (S1GNAL=0.). 

Dissipation constant in TKE model or constant in eddy diffusivity 
model. 

Finite-difference coefficient for velocity equation. 

Not used by program. 

Finite-difference coefficient for ({(-equation. 

2 

Acceleration parameter, (v/U^) dU^/dx. 

Wall friction coefficient, C^/2. 

Conversion factor, mechanical to thermal energy. 

Cosine a, to relate y and r. 

Finite-difference coefficient for velocity equation. 

Not used by program. 

Boundary layer displacement thickness. 

Boundary layer momentum thickness. 

Boundary layer enthalpy thickness. 

Maximum Integration stepsize (DELTAX * YL) . 

Pressure gradient due to free-stream velocity variation and free- 
stream body force (pressure gradient to conserve continuity and 
momentum if pipe/ channel flow) . 

Integration stepsize (computed by program). 

Not used by program. 
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EMU(I) 

ENFRA 

EXX 

F(J,I) 

FI(J) 

FJ(J.I) 

FLUID 

FMEAN 

FR 

FRA 

GAMA(J) 

GC 

GEOM 

GPL 

GV 

H 

I 

INDE(J) 
INDI (J) 
INTG 
ITKE 

J 


Effective dynamic viscosity, sum of laminar and turbulent contrlbutioi 
Entrainment fraction to control boundary layer entrainment. 

Not used by program. 

(f-dependent variable in (^-equations (e.g. , stagnation enthalpy or TKE 
equations) at Y(I). 

Join-point value of F(J,I). 

Boundary value of F(J,I), specified at each X(M) [level if 
TYPBC(J)=1 and flux if TYPBC(J)*2]. 

Type of free-stream fluid. 

Bulk-mean stagnation enthalpy for pipe flow, to adjust Stanton number 
Defines boundary layer thickness. 

Fraction to determine DX stepsize. 

Power of y in slip scheme, near-wall region. 

Proportionality constant, Newton's 2nd Law. 

Geometry descriptor. 

Blowing parameter in "wall coordinates" 

Gravity constant for momentum body force. 

Boundary layer shape factor. 

Cross-stream index for dependent variable (1*1 at y * 0) . 

Type of boundary condition at E-surface (TYPBC(J)). 

Type of boundary condition at I-surface (TYPBC(J)). 

Integration step counter. 

I index value at edge of mixing-length model/TKE model boundary. 

Index for (j)-equations (all J loops bypassed if only solving veloclt; 
equation) . 


70 



KASE Flag to Identify If one surface is a wall. 

KP Flag to determine how damping coefficient will be determined for 

Prandtl mixing- length model. 

K1 Flag to control print of SP(I) and changes in DELTAX. 

K2 Flag to suppress corrections to AIMGG or to use eddy diffusivlty 

model. 

K3 Flag to suppress use of internal correlation of turbulent part of 

PREF(J,I). 

KENT Flag to control the entrainment calculation. 

KERROR Flag to terminate program if input data error detected. 

KEX Type of E-surface. 

KIN Type of I-surface. 

KRAD Flag to identify if transverse radius effects are to be included in 

equations . 

LSUB Flag to activate the LAMSUB routine in subroutine WALL. 

LVAR Flag to prematurely terminate program (e.g., if dimensioning exceeded, 

negative' pressure, etc. ) . 

M Index for boundary condition location. 

MODE Flag to signal laminar or turbulent flow. 

N Number of initial stream tubes (which requires specification N + 1 

initial profile points). 

NEQ Number of equations to be solved. 

NIND Counter for number of data sets executed. 

NPH Number of (})-equatlons to be solved (NEQ-1). 

NPl N + 1. 

NP2 N + 2. 

NP3 N + 3. 

NUMRUN Number of consecutive data sets to be processed. 

NXBC Number of boundary condition locations (X(l) < X(M) < X(NXBC)). 
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OM(I) 


Non-dimensional stream function. 


OMD(I) 

OUTPUT 

PEI 

PO 

PPLAG 

PPL 

PR(J,I) 

PRC(J) 

PRE 

PREF(J, 

PRO 

PRT(J) 

QW(J) 

QWF(J) 

R(I) 

RBOM(I) 

REH 

REM 

RETRAN 

RHO(I) 

RHOC 

RHOM 

ROMD(I) 


OM(I+l) - OM(I). 

Flag to signal type of print format, related to GEOM. 

Boundary layer mass flow rate per unit radian (or per unit depth if 
transverse radius not considered). 

Initial free-stream static pressure. 

Lag constant for changing P"*”, 

Pressure gradient parameter in wall coordinates (P“^) . 

Laminar Prandtl number. 

Constant property laminar Prandtl/Schmidt number. 

Pressure at X = XD. 

Effective Prandtl number, combining the laminar and turbulent Prandtl 
numbers. 

Pressure at X = XU. 

Initial value of turbulent Prandtl nximber for (j)-equation (asymptote 
if variable turbulent Prandtl number model used). 

Flux of <(>“equation at a wall (positive in positive y-direction) . 

Flux of 4)-equation at a wall/ [F(J,wall) - FI(J)]. 

Transverse radius of finite-difference node at Y(I), 
l./[OM(I+l) - OM(I-l)]. 

Enthalpy thickness Reynolds number. 

Momentum thickness Reynolds number (diameter Reynolds number for pipe flow) 
Reynolds number for laminar- to- turbulent transition. 

Fluid density. 

Constant property fluid density - 

Fluid density at location of FMEAN for pipe flow. 
l./IOM(I+l) - OM(I)]. 
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RW(M) 


Distance from axis of symmetry to body surface, specified at each 
X(M). 

Wall radius for pipe flows. 


RWO 

SC(I) 

SD 

SOURCE (J) 

SP(I) 

SPACE 

ST(J) 

SU(J,I) 

T(I) 

TAU 

TAUW 

TYPBC(J) 

U(I) 

UG(M) 

UGD 

UGU 

UI 

UMAX 

UMIN 


Diffusion term for velocity equation (small c) . 

Source term at X = XD, not used by program. 

Type of source function for <|>-equation. 

Special print array, user supplied. 

Print spacing. 

Wall Stanton number (based on FMEAN if pipe flow). 

Source term for 4>-equation. 

Static temperature if stagnation enthalpy equation (FLUID = 2) ; 
shear stress If no <|)-equations. « 

Shear stress at join-point location. 

Wall' shear stress. 

Type of boundary condition for ({)-equations (level or flux). 

Velocity-dependent variable in Tnomentuin equation at Y(I). V 

Free-stream velocity, specified at each X(M) , except for pipe/channel 
flows. 

Free-stream velocity at XD, obtained using 3rd order spline fit to 
UG(M) . 

Free-stream velocity at XU, obtained using 3rd order spline fit to 
UG (M) . 

Join-point velocity. 

Maximum U(I) in velocity profile. 

Minimum U(I) in velocity profile. 


VISCO(I) Laminar dynamic viscosity. 

VISCOC Constant property laminar dynamic viscosity. 
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X(M) 

XD 

XL 

XU 

Y(I) 

YEM 

YIP 

YPMAX 

YPMIN 


Location along wall (centerline if no wall) where boundary values 
are given. 

Downstream value of x where differential equations are solved. 

Value of X where integration terminated. 

Value of X where integration begins; during integration the upstreat 
value of X. 

Independent variable, perpendicular to x, measured from I-surface. 
Location for (1 - FR) • UMAX. 

Location for (1 - FR) • UMIN. 

Maximum 
Minimum 


at outer edge of Wall Function, 
y"*" at outer edge of Wall Fxmctlon. 
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AME 

AMI 

APL 

BETA 

BPL 

CF2 

EDR 

EMU(I) 

F 

F(l.I) 

F(2,l) 

F(l.wall) 

FM 

FW 

G 

GAMA(J) 

H 

HPLUS(I) 

I 

INTG 

K 

NU 

OM(I) 


Appendix II 
OUTPUT NOMENCLATURE 

wall mass flux. Figure A.l, or entrainment, equation (4.15) 

wall mass flux. Figure 4.1. 

a"*”. Van Driest damping constant, equation (2.22). 

B, slip constant, equation (4.13a); or -H * Re^^ * K/C^/2, ac- 
celeration parameter, OUTPUT = 2. 

b"*", Evans damping constant, equation (2.23). 

C^/2, friction factor, equations (3.11b) or (3.24). 
r 

y cc/v, effective/ laminar viscosity, equation (2.6). 
ei t 

y effective viscosity at y location, equation (2.6). 

ett 

mV N, blowing fraction, 

(wall) (free stream)’ ® 

dependent variable at y location for first (J)-equation. 
dependent variable at y location for second 4>~equation. 
dependent variable > wall value. 

I , mean stagnation enthalpy, equation (3.27). 

I at wall, stagnation enthalpy. 

Clauser parameter, (H-1.)/ (H/C^/2) , OUTPUT 2. 

Y, slip constant, equation (4.13b). 

^l'^'^2’ parameter, equations (3.22a-b). 

I*"*^ at y location, equation (3.4i). 
y location, 
integration number. 

acceleration parameter, (v/U^)dU^/dx. 

Nu, Nusselt number, equation (3.26). 
w, equation (4.4). 
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PEI 

PPLUS 
PRESS I 

pressure! 

QWALL 

R(I) 

RE 

REM 

REH 

RHO(l) 

RHO(NP3) 

SP(I) 

SQRT(K)/UG 

ST(J) 

T(I) 

TAUPLUS 

TAUWALL 

U(I) 

UGU 

UM 

UPL, I 

UPLUS(I)) 

VWPLUS 

XU 

Y(I) 

YPL, j 

YPLUS(l) 1 


) , boundary layer mass flow rate/radian (on unit depth), 
equation (4.4). 

P^, pressure gradient parameter, equation (3.4g). 

fluid thermodynamic pressure. 

• 

wall heat flux, equation (3,15a). 
r, radius at y location, 

Reynolds number, equation (3.29), OUTPUT = 4. 

Re^, momentum thickness Reynolds number, d^U^/v, equation (3,22b 
Re^, enthalpy thickness Reynolds number, A2U^/v, equation (3.22c 
p, fluid density at I-surface. 
p, fluid density at E-surface, 
special output array, user supplied, 

Vq^/2/U^, turbulent kinetic energy equation. 

St, Stanton number, equation (3.15b). 

static temperature, degrees Rankine; or t"*”, equation (3.4f), 
if NEQ = 1 and OUTPUT - 2. 

equation (3.4f). 

T, wall shear stress, equation (3.11a). 

U, velocity at y location, 
at print location. 

U, mean velocity equation (3,28). 

u"*" at y location, equation (3.4b). 

v"^, equation (3.4c). 
o 

X at print location, 
y, dependent variable location. 

y"*^ at y location, equation (3.4e). 


76 



Appendix III 
STANS PROGRAM 


C TURBULENT BOUNCAFY LAYER PREDICTION P AT AMKAR/SPALOING METHOD, 

C KAYS/STANFORC version, designation iTANS, DECEMBER, 1975 MAINOOlO 

cIIIIIlN THIS VERSION EDDY VISCOSITY AND THE EDDY CONDUCTIVITIES ARE 

C.... •calculated EITHER BY THE MIXING-LENGTH METHOD OR FROM SOLUTION ,,**'^0040 

C CF THE TURBULENT KINETIC ENERGY EQUATION. IF THE LATTER METHOD 

C TO BE USED IT IS MERELY NECESSARY TO ACTIVATE ^E ADDITIONAL OIFF-MAIN0060 

C USION EQUATION IN THE INPUT ROUTINE, AMO TO SOURCE -2 FOR 

C THAT EQUATION. THE SHIFT OF METHOD IS THEN AUTOMATIC. NOTE THAT *^*1^008® 

C.««**THE PROGRAM IS SET UP ONLY FOR A ZERO OR A ONE-EQUATION MCX)EL OF ^*JN®®^® 

C TURBULENCE. ADDITIONAL THOUGH MINOR MODIFICATION IS NECESSARY ^O^JIJIJ^®}®® 

C FUL T I "*E Qii AT I C N M0CEL5* FAI“01lo 

cimiTHERE IS ALSO AN OPTION FOR WHICH EOOY OIFFUSIVITY IN THE OUTER MAIN0120 

C REGION OF THE BOUNDARY LAYER IS EVALUATED DIRECTLY FROM A J^® 

C.....NUNBER CORRELATION. WAINOISO 

^ INTEGER GE0M,FLUIC,S0URCEI5J,SPACE.B00F0R,0UTPUT,TYPBC 

COMMON/GEN/PEI ,AMI,AME,0PDX,XU,X0,XL,0X,INTG,CSALFA,TYPBCI5I , MAIN0170 

1P0DE»PRTI5I ,PRE,NXBC,X(lOa I.RWdOOJ ,FJI 5, LOO ) * GC ,C J, AM( 100) , PRO, MAIN0180 
2UGC 1001 , PO,SCURCE,RETRAN,NUMRJN, SPACE, RWD,PPLAG,OUTPUT,DELTAX,GV MAIN01®0 
3/E/N, NP1,NP2,NP3,NEQ,NPH,XEX, KIN, KASt, ARAD, GEOM,FLUID,BOOFOR,YPMINMAIN0200 

A/GG/BETA,GAMAI5) ,AJI 15 ) , AJEI 51 , 1 NOII 5 I , INOEI .5) ,TAU,0WFI 5) MAIN0210 

5/V/Ut5A),FI5,5A) ,R«54> ,0M1 5A) ,YI 541 ,UGU,UGD,UI ,FH 5) ,FMEAN,TAUW MAIN0220 
B/W/SCt5AI , AU(54) ,BU( 541 ,CU I 54) , A ( 5, 541 ,B( 5 ,54) ,CC5,54) , 

7 /L/AK,ALMG, ALMGG,FRA,APL,BPL,AQ,BQ,EMui54) ,PREFI5, 54 ) , AUXMl MAIN02W 

8/Ll/VL, UMAX, UMIN.FR, VIP, YEN, ENFRA, KENT, AUXM2 FA1N0250 

9/P/RHO(54),VISCOI54),PRI5,54l,RHOC,VlSCOC,PRCI5),T 154) , RHOM, BF (54 ) MAIN0260 
l/O/M,REM,CF2,ST(5),LSUB,LVAR,CAY,RcH,PPL,GPL,0W(5) wo-.v 

2/CN/AXX, BXX,CXX,CXX,EAX,KL,K2,K3,SP(54),AUX1 1100), AUX2C 100), YPMAX ^«N0280 
3/AOD/RBOM(54»,OMC(54),ROMD(54I,ITK£ J^A|W0290 

DIMENSION AMEF(5I,AMIF(5) 

DIMENSION FPP(100),AFPP(lt)0),BFPP(lOOI,CFPP( 100) JJAIN0310 

c!!!!!pR0GRAM DIMENSIONED FOR 50 FLOW TUBES 

C IF DIMENSIONING CHANGED, SEE •** CARDS IN SJBS MALL AND OUT HA1N0320 

^ NUMRUN-1 IaIN0340 

NIND-0 JJ5n0350 

5 KERROR-0 

^ ihmjT SIInSjW 

CALL INPUT(KERROR) 

^ TO iM» 

CALL STEP! 5 > •^AINOAIO 

«LL P^AINOAZO 

6 WAIN0430 

IF (XU.GT.X(M)I 60 TO 6 ItJSSiso 

AMIE-AM(M-l)»(AM(MI-AM(M-il»*iXU-X(N-lll/(XIM)-XlM-ll) 
AUXMl-AUXllH-l)MAUXl(N)-AUXl(H-l)l*«XO-K(M-l) l/(X(M)-X(M-l) ) 
AUXM2»AUX2(M-l)*(AUX2IM)-AUX2(M-ll)*(XU-X(M-l) l/(X (M )-X (M-1) I 

IF (KEX.EQ.ll AME-AMIE "JJJJoo 

» .MN.6..1I OI.A.1, 

10 CALL STEPIl) ISiSJmO 

, »cohti nue properties SiSS”o 

C FLUID PROPERTIES EITHER SET EQUAL TO INPUT DATA 

C.....OR COMPUTED BY CALLING A VARIABLE PROPERTIES MAIN0550 


PAOP TO 
OP Pnno ® 

WR QCJALrnj 
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C SUMCHTTINf SUPPLIED BY USER. 

IPCFLU10.NE.il GO TO US 

IFCINTG.GT.OI GO TO 205 

DO no I«I»NP3 

V1SC0CII«V1SC0C 

RHOIll-RHOC 

Tcn-i. 

IF CNPH.EO.OI GO TO 110 
00 IDS J«I»NPH 
PRIJtll^PRCC Jl 
105 CONTINUE 
no CONTINUE 
GO TO 205 

U5 DO 130 I«ltNP3 
IPROP*FtUIO-l 
GO TO f 120,122tl24l«IPR3P 
120 J«1 

IFCSOURCECJI .EQ.2IJ«2 

CALL PR0P2IIfFC Jtll.TC n,V2SC0iI> tPM it lit RHOm ) 

IF CLVAR.EQ.7I GC TO 1000 
GO TO 130 

C CALLS FOR OTHER PROPERTY SUBROUTIr^ES CAN BE INSERTED HERE. IT 

C ALSO NECESSARY TO CHANGE PROPERTY CALLS IN SUBROUTINE WALL. 

122 CONTINUE 
124 CONTINUE 
130 CONTINUE 

— — — — — WALL RADIUS - 

...•WALL RADIUS AT EACH X LOCATION EVALUATED BY 
....BY LINEAR INTERPCLAT ION OF INPUT DATA 
205 IF (LSU6.GT.0I GC TO 35 
R12*RWCMI 
Rll«Rwn4-ll 
X2»XIMI 
Xl«X<N-ll 

RUU»Rll*CR12-RlllBfXU-Xll/ CX2-X1I 
If CGE0H.EQ.7IGQ TC 225 
1FCGE0N.EQ.9IGC TC 230 
RNO«RUU 

C$ALFA«fSORT (ABSI (X2-UIPI X2-XU-(R12-Ril} *(R12-Rll) I ) ) / ( X2-X1 1 
IFUIN.EQ.2.ANC.FRA0.EQ.1) RUU«RUU-YCNP3I*CSALFA 
IF(6EOM»E0.4.0R*€EOM.EU.5ICO TO 220 
GO TO 30 
220 CSALFA<1«00 
BUU-0.0 
GO TO 30 
225 CSALFA-1.00 

IFIINTG.EO.OIPI-O.S^RUUBRJUAUUJ^RHOUI 
IFIINTG.EO.OIGO TC 30 
PI^PI-ANI^RUU^CX 
IF(PI.LE.0.0>RUU«0.0 
IFIPl.LE.0.0)GE0P-6 
If IGE0N.E0.6IKIN>3 
IF(GEQN.EQ.6)NRI TEC6.228} 

IF4GEON.E0.6ICO TC 30 
RUU-SORT4PI*2./f LCDARHOai J I 
GO TO 30 
230 CSALFA>1.00 

IF(INTG.E0.0)EN«0.0 
[FUNTG.EO.0IRliO*0.O 
IFCINTG.EO.OIGO TO 30 
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•^AIN0620 
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WAIN0640 
NAIN0650 
^AIN0660 
^AIN0670 
MAIN068Q 
WATN0690 
^A!N0700 
•*AIN0710 
HAIN0720 
^'AIN 0730 
HAIN07<t0 
PAIN0750 
NAIN0760 
IS ^AIS0770 
MAIN0780 
PAIN0790 
MAIN0800 
MAIN0810 
— -MAfNO02O 
MAIN0830 
‘'ATN 0840 
MAIN0850 
*'AI^I 0860 
MAIN0870 
*'AIN0880 
WAIN0890 
VAIN0900 
WAIN0910 
PAIN0920 
HAIN0930 
MAIN0940 
NAIM0950 
‘'AIN0960 
»'AIN0970 
MAIN0980 
PA I W 0990 
MAINIOOO 
PAINlOlO 
PAIN1020 
MAIN1030 
PAIN1040 
MAIN1050 
MAIN1060 
PAIN1070 
PAIN1080 
MAIN 1090 
•'AINllOO 
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«AIN1120 
MAIN 1130 
MAIN1140 
WAIN 11 50 
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EN-EN»AMI*RUU*CX 
PWD»EN/<BUU*l:<l»*PHO( 1) J 

30 R(1»*RUU STEP2 

35 IF nNTG.EQ.O.CR.LSUB.GT.O) CALL SrEP(2l 
IF (LSUB.GT.OI GC TO 58 

— — STEP3 

CALL STEPOl 

entrainhemt control 

IF (GEOM.EQ.A.OR.GEOH.EQ.5 ) GO TO 34U 

IF lINTG.EQ.OI GC TO 345 

UHMbUHAX-UMIN 

FEIE*PEI/IR(NP3I*T«NP3) i 

PEI I«PEIE«RINP3I/R(1) 

tDIFF»ENFRA*LPP 

LACTI»ABS(U(3I-U(in/UMM 

UACTE»ABSIU<RP3)-UINPlll/JHM 

AHEN-AME » <ENFRA-UACTEI*PEIE 

IF<ENFRA,GT.2.*UACTE»AMEN-AME/2. 

IF(ABS(U(NP1 »-UiM I .LE.UOIFF/2. IAMcN»ANt/2. 

AMIN^O. 

IF IKIN.EQ.2I AMIN*AHI - i ENFRA-UACm*PEi I 
IF(ENFRA.GT.2.*UACTI )AMIN“ AMI/2. 

IF (ABS(U<3I-U(4) I.LE.UOIFF/2.1 AMlNaAMI/2. 

IFINPH.EO.OIGO TC 330 
IFCKENT.EO.OIGC TC 330 
CO 312 J»I,NPH 
FMAX*F( J.l) 

FMIN-F< J,l> 

DO 305 1*3, NF3 

IFII. E0.NP2IGC TC 305 

IF(F( J, n.GT.FPAXlFMAX-F( J,ll 
IFtFU.I ).LT.FMIMFM1N*F(J.I ) 

IF ( SOURCE! J» .EC.2)FMAX»l. 

305 CONTINUE 

FFM*FMAX-FMIN 
FOIFF*ENFRA*FPK 
IFIFMM.LT.O.DGO to 310 
FACTI*ABS(F( J,l»-F<J,3I»/FHM 
FACTE-ABSIFI J,NP3»-F( J,NP1II/FNM 
AMEF(JI*AME ♦ IENFRA-FACTEI*P£IE 
AMIF(J)*0. 

IF 1KIN.EQ.2) AMIF(J|-AMI • (ENFRA-FACT I I *PE I 1 
310 CONTINUE 

IFf INOI ( Jt .EQ.2.AND.ABSiAJllJl J .LT..uuOil ANEFi JI-O.O 
IFIIN0E(JI.EC.2. ANO.ABS(AJE( Ji I .LT. .0001 i AMI FI Jl*0.0 
IFIFMH.LT.O. llAMEFIJt«0.0 
lFIFMM.LT.O.UAMIFIJl-0.0 
312 CONTINUE 

00 325 J*l,NPH 

IFIJ. GT.DGO to 315 
AMEMAX«AMEN 

IF(KIN.EQ.2IAMIMAX«AHIN 
315 IFf SOURCE! J) .EG. 2IG0 TO 320 

IFI-AMEF ( JI .6T.- AREN I AHEMAX*AMEF IJI 

IF(KIN.EQ.2.AND.ANIF(JI.Gr.ANIN)AHINAX«AMIFIJI 
320 lFfKEX.EO.2) AME-ARB4AX 
IF<KIN.EC.2>AMI-AR1MAX 
325 CONTINUE 
GO TO 335 
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330 IF(KEX.EQ.2MHC«AliEN 
IFnUN.EQ«214Fl«AFlN 
335 lFlKEX«E0*2.AN0«AlfE.6T.0.UNE«0. 
IFOaN.E0.2.ANC.AFKLT«0.IANl«0. 

AMMAX«PEIE«0.1 

IFUEX.E0.2.4ND.AFE.IT.-AMNAXIANE—ANNAX 
IFlKlN*EQ«2.ANC.AFI«GT.ANNAXUHi«AHMAX 
340 lf(KIM«EC.3IA»^l>i0« 

IF(K£X.EQ.3IAFE«0. 

C OX STEPSIZE 

IFIKl»EQ*20.CP.Kl.EQ.9IDELTAX«AUXMl 
345 IFCAMI - 0«0l42t40,42 
40 IF<AME • 0.0)42f44,42 
42 CX«FRA4PEI/UBS(P<ll*AMl-ftlNP3|PAM£n 
IFIOX.GT«OELTAXPYUOXi>«OELrAXPYL 
60 TO 46 

44 OX « OELTAXPYL 
46 1F(INTG.E0«0IG0 TO 49 

1FI0X«GT.20.PDX01CIWRITEC6«46» 

49 IE(INTG«LT.I0ICX«0«2«0X 
1NTG«INTG^1 
XO « XU ♦ OX 
CXOtO»OX 

IF(REM«6T.RETRANIR0DE*2 

IF IX0«GE«U<NXBC)-U340xn XL«X(NXBC )-1.5P0X 
IF(XD.Gr«X<NXBC» )PRO«PRE 
IFUD.GT.XIHXeCI } GO TO 55 

.... BOOY FORCECCThER THAN PRESSURE GRADIENTI, SUCH AS 
BOUYANCY OR A 0COY FORCE PER UNIT VOLUHEt FOR THE 
*».. MOMENTUM EQUATION. POSITIVE IN THE POSITIVE X*DIR. 

IF (0OOFOR.EG.O) GC TO 410 
00 405 I-ltNP3 
: &Fn)*GVARHOm/CC 

i IF(B00F0R.EQ«2IBfm«aFC II «^AUXHi 
405 CONTINUE 
BFG^iBFm 

IF (KEX.EQ«2) eFC«BF(NP3l 

PRESSURE GRADIENT - EXTERNAL FLOW 

....PRESSURE GRACIENT FOR EXTERNAL FLOW COMPUTED BY 
....FITTING A SRC ORDER SPLlNE-FlT TO FREE-STREAH VELOCITY 
....INTROOUCEO IN THE INPUT DATA. 

410 IF (INTG.EQ.l) OPSUH«0«0 
IF (GE0M.EQ.4IG0 TQ 435 
1F<GE0N.EQ.5IC0 TC 440 
IF (INTG.NE.ll GO TO 4L5 
M*l 

IF(XEX.EQ»2IU0UICE-U(NP3I 
1F(KIN.E0.2.AN0.KEX.NE.2IUGUIDE«UUI 
RHOLD«RHOCII 

IF <KEX.EQ.2I RHCL0*RH0(NP3i 
RHO2-RHOL0 
BFG«6FCll 

IF (XEX.E0.2I 6FG«6F(NP3I 
FPPni»0. 

FPPCNXBCI«0. 

NXBCN1:«NX6C-1 
IF fNXBC.£Q*2l GO TO 425 
DELl = XC2l-xm 
00 411 I«2fNXfiCMl 
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MAIN2090 
MAIN2100 
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MAIN2150 
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MAIN2230 
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MAIN2260 
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MAIN2280 

MA1N2290 
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DELP4-DEL1 
DELI-X( 1*1HX(I) 

OELSUM>OELUCELM 
AFPPm— DELI/OELSUM/2. 

6FPP4 I ) — OELP/OELSUM/2 . 

All CFPP4 I l-3.*{U6( I-ll*OELl-UGm*DELiUH»UGlI»U*OEL«)/(OELI*OELM 
IPOELSUMI 

BFPP42I-BFPP42I*FFP( 1»*CFPP12) 

IF INXBC.EQ.3) GQ TO AlA 

00 412 I«3,NXBCM1 

TRATI0»l./( l.-BFPPm*AFPP(I-ll ) 

AFPP( n-AFPPm*TRAT10 

412 BFPPn)-(BFPP4II*BFPPU-l)*CFPPt II»*TRATID 

414 00 413 I-2,NX6CM1 
J>NXeCMl-I«2 

413 FPP4JI=AFPP4 JI*FPP4J»i)»BFPP4JI 
GO TO 425 

C ADJUSTMENT OF PRESSURE FOR CORRECT DENSITY 

415 IF (FLUIC.EQ.II GC TO 425 
RH02>RH0(1> 

IF (KEX.EQ.2) RHC2-RH04NP3 ) 

OPDXN>DPDX*Rh02/RhOLO 
PRE-PR6*4DP0XN-DFCX)*0.5*DX/GC 
RH0LD-RH02 
GO TO 425 
418 P-M*l 

OXM=X(M»-X(M-ll 
AA=*0.1666666*FPP4P-l»/DXK 
BB-0. 16M6664FPP 4 P l/OXM 
CC-UG«H-l)/0XM-0. 1666666*3 XM*FPP(M-1I 
D-UG4M) /OXM-0.l666666*OXM*FPP4rtJ 
425 CONTINUE 


MAIN2360 
KAIN2370 
MAIN2380 
MAIN2390 
MAIN 2400 
MAIN2410 
MAIN2420 
MA1N2430 
MAIN2440 
MAIN2450 
MAIN 2460 
NAIN2470 
MAIN2480 
MAIN2490 
MAIN250Q 
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HAIN2520 
MAIN2530 
MAIN2540 
*AIN2550 
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MAIN25B0 
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MAIN 2640 
MAIN2650 
HAIN2660 
*A1N2670 


PR0=PRE MAIN2680 

IF 4XD,GT. X(MH GC TO 418 MAIN2690 

IF lINTG.EO.l) U6D»AA*tX<Nl-XU»*(X4Ml-XUI*4X4M)-XUI MAIN2700 

l*BBMCXU-X(M-l)>*4XU-X4M-U 1*4 XU-X4M-J. 1 1 ♦•CCMl X4 M) -XU) »0* 4 XU-X4 M-l I ) MAIN 2710 
IF4INTG.EQ.1 .AND.AES4UGUI0E-UG0 I.GT.0.00i*UGUIDE IL VAR=5 MAIN 2 720 

UGU«UGD main 2730 

XMX0»X4M|-XD MAIN2740 

X0MX*X0-X4M-ll MAIN2750 

UGO«AA*XMXOMXMXO*XMXOMBa*XDMX*XDNX*XOMX«-CC»XMXD*0*XOMX MAIN 2 760 

IF IT IS DESIRED TO INTRODUCE THE FRcE-STREAM VELOCITY AS AN main2770 

ANALYTIC FUNCTION, RATHER THAN A TABULATION, THIS IS THE PLACE MA1N2780 

TO PUT IT IN. IT THEN OVERRIDES THE PRECEDING STATEMENT, MAIN2790 

THE FOLLCNING IS SPECIAL FOR taulLlBRIUM ADVERSE PG FLOWS. MA1N2800 

lF4XO.GT.BXX,AhO.Xl.EQ.l5JUGD»AXX*l 4X0-CXXI / 4BXX-CXXI )**OXX MAIN 2810 

DPDX * 4UGU*UG0444UGU-OGD»*0,5*RH02/4XO-XU)*GC*BFG MAIN2820 

note that this PRESSURE GRADIENT IS ACTUALLY THE TRUE -AIN2830 

PRESSURE GRACIENT TIMES G SUB C MA1N2840 

DPSUM»OPDX*DX*CPSLM MAIN2850 

PRE »P0*-DPSUM/6C MATN2860 

••■••THIS PRESSURE IS USED ONLY IN THE PROPERTY SUBROUTINE, AND TH^RE MAIN2870 

ONLY TO EVALLATE CENSITY. MAIN2880 

60 TO 451 MAJN2890 

PRESSURE GRADIENT - INTERNAL FLOW MAIN2900 

435 CONTINUE MAIN2910 

PRO-PRE MAIN2920 

IF4INTG.E0.1 IRH0M»RH0 41I MAIN 2930 

UGU-2.*PEI/(R4NP3I*R(NP31*RHOM » matV2940 

OPOX«-PEI*UGUM4R4NP3)-RWO» /4RWOMRWD*RhQ*DXl“2.*CF2*RHOM* main 2950 


CKfiSttS ?AG^. 
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440 


445 

451 


55 


C — 


«AIN2^60 
*^ATN2970 
^AIN29ftO 
*^AIM2990 
^ATM3000 
«AIhJ3010 
•^AI^’3020 
^AIN3030 
IV 3040 
l^ATV3050 
•^AIV3060 
HAINI3070 
^ATN3080 
»^AIW3090 
^AIN3100 
•^ATV3110 
HATN 3120 
rAlV3130 
MAIN3140 
f^ATN3l50 
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C • • « • 
C • • • • 

c « • • • 


CALL WALL 

IF (LVAA.EQ.6I GC TO 1000 
If«N.LT.l2l GO TC 1030 
IF<lSUd«GT«0»GO TC 10 


lUGU«UGU/RINP3)*GC^eFf II 
DPSUR»DPOX*OJt*^DPSLM 
PRE *PO^OPSUF/GC 
GO TO 445 

continue 

PRO=*PRE 

[FnNTG«EQ«l IRH0P>RH0<1I 
UGU«PEI/CR(NP3I*T(NP3IPRH0HI 

0PDX«-PEI^UG0P(Y CNP3I-RW0I /I 2.^RWa*RW0*AW j*0X|-CF2*PH0M*0GU*UGU/ 
lYCNP3l«^6C*BFm 
OPSUN«DPOX*OX^OPSllP 
PRE »PO^OPSUP/GC 
ZF (XO.LE.XIPII GC TO 451 
N=Hi^l 
GO TO 445 
CONTINUE 

IF<LVAR«E0.5I GO TO 1020 
IF IPRE.LT.O.I LVAR-4 
IF fLVAR«E0.4l GC TO 1010 
1F(KASE*EQ«2I GO TO 65 

MAIN3160 

^ATN3170 
«AIN3180 
WAIN3190 
»^AIN3200 

— - INTEGRAL PARANETERS • EXTERNAL FLOW — -«AIN3210 

CALCULATION OF CISPLACENENT THiCKNt SS»N jM£NTUN THICKNESSf WAIN3220 

»SHAPE FACTOR f NOPENTUM THICKNESS REYNOLOS NUMBERf AND THE ENTHALPY WAIN 3230 

*^AIN3240 
HAIM3250 
MAIN3260 
NAIN3270 
WAIN3280 
WATN3290 
MAIN 3 300 
MAIN3310 
PAIN3320 
MAIN3330 
MAIN3340 
MAIN3350 
PAIN3360 
MAIN3370 
MAIV3380 
MAIN3390 
MAIN 3400 
RAIN3410 
MAIN3420 
MAIN3430 
PA IN 3440 
MAIN3450 
MAIN3460 
PArN3470 
MAIN3480 
PAIN3490 
HA IN 3 500 
MAIN3510 
MAIN3520 
MAIN3530 
HAIN3540 
MAIN3550 


thickness REYNOLDS NUMBER. 

GO TO (5OOf5CO«5OOf536t530f56Of56Uf 560f 56j)f GEQH 
500 VISG«VISC0(NP3I 
RHG«RH0fNP3l 
IF<KIN«EQ.1IG0 TC 505 
RHG«RHOm 

VI SG«vi scorn 

505 1FCUGU.LT«0.001IGC TO 520 
SUMI*0* 

DO 510 !«2fNP3 

510 SUMl- SUMI^ < Y n l-YC 1*1 1 |P( A m ^R 11^1 II /2. 

OEL1«SUM1/RUO*PEI/ (RWQ^RHGPUGU I 
SUM«0. 

00 515 I>3fNP2 

515 SUN»$UM^f l«*IUm^U( I*lll/l2.6UGUllPONOn-il 
DEL2>PE IPSUM/ I RWOARHGPUGUI 

•••••CORRECTION Of INTEGRAL PARAMETERS FOR TRANSVERSE CURVATURE 
IF (KRAD*NE^1I GC TO S19 
IF IKIN.E0^2I GO TC 517 

OELl>RHOPf*I«4SQRTU#42«PCSALFAPOEU/RWOI J/CSALFA 
0€L2«RWOPI*l.»SORTCl^#2^PCSALFAPDEL2/RWOI l/CSALFA 
GO TO 51S 

517 OELl*RWOP<^l.*SQRTa«-2.PCSALFA»OELl/RWOn/CSALFA 
0EL2«RWQP I ♦ 1 .-SORT <1 •-2. *C SALF A^OEL 2/RWQ J I /C S A LFA 

519 CONTINUE 
H-0EL1/0EL2 
REN>0EL2PUGUPRHG/V1S6 

520 CONTINUE 
IF(NPH«EQ.O) GO TC 560 
REH»0# 

IFISOURCEdl •EQ«2^AND«NPH«EQ«1IGQ TO 535 
J-1 
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525 

530 


532 

53^ 

535 


C— 


IF(SOURCEf IUEQ.2U«2 

FM>FC Jf II 

FC*F( J,NP3I 

1F(K1N.EQ*IIG0 TG 525 

FI<*FUfNP3l 

FG«F( J.ll 

SUM«0. 

DO 530 I«3»NP2 

OEL-OMDCI-lM0.5^«f( Jt IH^FIJ#!-! )-2»*FGI 
SUH*SUH40EL 

1F(ABSCUCU«(FW-FC)I.LT*O.OOOOIIGO TO 533 
DEL3*PEI*SUH/(PWC*PHG*UCU*(FH-FGI I 
IF <KRAD.NE.ll GC TO 534 
IF (KIN.E0.2I GO TO 532 

0EL3*RWO«I-l.^SORTll.>2.*CSALFA*O£L3/Ri<Ji J/CSAIFA 
GO TO 534 

0EL3-RW0*CFl.-SQRTa.-2.PCSALFA40EL3/Rlt0M/CSALFA 

R6M»DEU3^UGU4RIHC/VISG 

CONTINUE 

GO TO 560 

— INTEGRAL PARAMETERS - INTERNAL 


FLOW — 


538 FHEAN«0.0 

VISC0H«V!SC0<1) 

RH0H«RH04II 
IF(NEO.EO.IIGO TC 555 

IF(SOURCE<1I.EO»2.AND*NPH«EO«1)GC TO 555 
IF(SOURCE<I)«EQ«2)J*2 

IF(A6Sf (FU »ll*F(JfNP3nULT««OOOUST Ul«0*0 
IFIAeSdFCJf 1)*F (JtNP3)n.LT..000ilG3 TO 555 
00 540 I-3»NP2 

DEL*<0M(I )-OPn-ll ••(F( Jtl J«^F< Jf I-ill/2. 

540 FMEAN=FMEAN*DEL 

545 

RATIO^l.O 

IFIINTG.EO.IIGO TC 550 
IF<MM.EQ.NP2)G0 TC 550 

IF(ABS(F( J,MP)-FFEAN)«GT#ABS<F< JiNMJ-FlJ,MN«^imGO TO 545 
RATIO«4F(JtMP)*FREANI/<F(J»NHI-FIJ,NM4'in 
550 RHON«RHO<MHI-<RHOIRN)-RHOINM4*1I IFRATIO 

VISCaNsVISCO<PN)-<VISCO<HHI-VISCOCNH4^ilJPRAT10 

STANTON NUMBER AND CF2 ARE CALCULATEO HERE BY SIMPLY 

•••••MODIFYING THE VALtES CALCULATEO IN THE WALL FUNCTION 

WHERE FREE-STREAN U AND F ARE USED. 

ST( JI*ST(JI*(RH0(ll/RH0HM<F(J,U-FCJtNP3l )/ <FMEAM-FU» NP3II 
555 REM«4«*PE1/(Y(NP3)4V1SC0MI 
CF 2-CF24RH0 m / ( RFOM ) 

560 CONTINUE 
65 CONTINUE 

— AUX 


CALL AUX 


CALL OUT 

IFCLYAR.GT.IIGO TO lOOO 
, THE TERMINATION CONDITION 
IFIXO.GT.XLI GC TC 1000 
If CKASE.EQ.2I GO TO 70 


OUT 


WALL MASS TRANSFER — 


•LINEAR INTERPOLATION OF WALL MASS TRANSFER DATA, 


WAIN 3560 
WAIN 3570 
WATN3580 
WAIN 3590 
WAIN 3600 
WAIN3610 
WAIN3620 
MATN3630 
WAIN 3640 
WAIN3650 
WATN3660 
WATN3670 
WATN3680 
WAIN3690 
MATN3700 
WAIN3710 
WA1N3720 
WAIN 3730 
WAIN3740 
WA1N3750 
“MATN3760 
WAIN3770 
WAIN3780 
•^AIN3790 
MAIN3B00 
WATN3610 
WAIN3B20 
WAIN3830 
WAIN3840 
WAIN3850 
WAIN3860 
MAIN3B70 
WMN3880 
WAIN3890 
MAIN 3900 
WAIN3910 
WAIN 3920 
WAIN3930 
MAIN 3940 
WAIN39S0 
MA1N3960 
WAIN 39 70 
MAIN 3980 
MAIN3990 
WAIN4000 
MAIN4010 
MAIN4020 
MAIN4030 
WAIN4050 
MA1N4080 
— MAIN4090 
MAIN 4100 
-MAIN4110 
WAIN4120 
MAIN4130 
WAIN4140 
MA1N4I50 
MAIN4160 
-*MAIN4170 
MAIN4180 



n n o n o o o o o o n n on 


eOOY FORCE SOURCE OATAt AND ENERGY SOURCE DATA 

FROM INPUT OATA« 

AM1E-AM<M-Il^f AM IP )-AM(N-l ) !•( XD*XiM-ll )/( X( M» -XCM-l ) I 
IF UEX.EQ.l) AM£«AHIE 
IF fKIN.EQ.il AM1«AH1E 

AUXHl>AUXl<M-ll«'IAUXlfNI-AUXl(N*in*(XD*X( M-U I/C XIM}-X(H-»lll 
AUXM2«AUX2fM-l)«'CAUX2CM|-AUX2(N-UI«CX0-Xf M-il I/C X (H l-X (M-U I 

IF IT IS DESIRED TO INTRODUCE THE WALL BOUNDARY CONDITION AS 

AN ANALYTIC FUNCTICNt RATHER THAN A TABULATION t THIS IS THE 

PLACE TO PUT IT IN. IT THEN OVER-tUOES THE PRECEDING STATtPENT, 

WALL F BOUNDARY CONDITION — 

•••. .LINEAR IHTERPQLATIGN OF WALL dOUNOARY DATA 
FROM INPUT DATA 


IF CNEQ.EQ.il CO TO 70 
DO 710 J-1 »NPH 

FQ » FJC Jf M-ll ♦ CFJC JffN|-FaU»M-II l«(xD-X(M-in/(XCHI-XCM-in 

NOTE that FO is EITHER A SURFACE PROPERTYt SUCH AS FNTHALPYt 

.....OR IT IS A SURFACE FLUX, SUCH AS HEAT FLUX. 

•••••IF IT IS DESIRED TO INTRODUCE THE WALL BOUNDARY CONDITION AS 
.....AN ANALYTIC FUNCTION, RATHER THAN A TABULATION, THIS IS THE 
••...PLACE TO PUT IT IN, IT THEN OVER-RIDES THE PRECEDING STATEMENT, 
GO TO C 70l,TOA,70A), KIN 

701 NIN0J«IND1( Jl 
GO TO 1702,7031, NINDJ 

702 F|J,1I*FQ 
GO TO 70A 

703 AJICJI^FQ 

70A GO TO f 705,700, 7C6I, KEX 

705 NINDJ«INOEC Jl 
GO TO C706,7C71, MNOU 

706 FU,NP3)«FQ 
GO TO 708 

707 AJECJI-FQ 

708 continue 
710 continue 

70 CALL STEPCAI ^TEPA 

xu*xt> 

PE I«PEI AO XPf R Cl) AAPI-RlNPai^AME I 
GO TO 15 

1000 IFCNIND.LT.NUKRUhlGO TO 5 
RETURN 

1010 WRITE C 6,455 I 
GO TO 1000 
1020 WRITE C6,450l 
GO TO 1000 
1030 WRITE C6,64) 

GO TO 1000 

228 FORMAT!//* PROGRAP HAS SHIFTED TU GE0H>6 *//l 
64 FORMAT!//* PROGRAP TERMINATED BECAUSE THE NUMBS! OF SPACES*/ 

I* IN the GRID CN) COT BEtDW 12. AJO MORE GRID POINTS TQ*/ 

2* THE OUTER PART OF THE BOUNDARY LAYER*// I 
450 FORMAT!//* PROGRAM MAY HAVE tERHINATEQ BtCAUSE INITIAL VELOCITY*/ 
1* PROFILE IS INCCPPATIBLE AT EITHER YINP3I DR YCll WITH*/ 

2* THE INPUT FREE-STREAM VELOCITY PROFILE*//! 

455 FORMAT C /lOX ,• PRESSURE HAS GONE NcGAT I VE , PROGRAM TERMINATED* I 
48 FORMAT!//* OX HAS TAKEN A LARGE STEP FORWARD WHICH LOOKS*/ 

1* LIKE NOTHING BIT TROUBLE. PERHAPS YCNP3I HAS BLOWN UP.*//I 
END 


MAIN41Q0 
MA1N4200 
HAIN4210 
MAIN422D 
MAIN4230 
MAIN4240 
MAIM4250 
MAIN4260 
HAIN4270 
MAIN4280 
-PAIN42^0 
MA1N4300 
MA1N4310 
**AIN4320 
MAIN4330 
MAIN4340 
MAIN4350 
MAIN4360 
MAIN4370 
MATN4380 
MAIN4390 
MAIN 4400 
MA1N4410 
MATN4420 
MAIN 4430 
MAIN4440 
MATN4450 
MAIN 4460 
MAIN4470 
MAIN4480 
HA IN 4490 
MAIN4500 
MAIN4510 
»*AIN4520 
HAIN4530 
HAIN4540 
-MAIN4550 
**AIN4560 
MAIN4570 
MAIN4580 
**AIN4590 
MAIN4600 
HAIN4610 
MATN4620 
^A IN 4630 
MATN4640 
HAIN4650 
MAIN 4660 
HAIN4670 
NATM4680 
i*AIN4690 
MAIN4700 
MAIN4710 
MAIN4720 
MAIN4730 
MAIM4740 
MA1N4750 
**AIN4760 
HAIN4770 
MAIN4780 
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C 


C 


c 


c 


c 


c 

c 


c 


SUBROUTINE STEPCKSTEPI 


INTEGER GEOH f FLUlCfSOURCEI 5) tSPACEt 0OOF QRf OUTPUT tTYP0C 
COMMON/GEN/PEI t API »ANEtOPDX»XUf XDfXLt OX, I NTG»CSALFA,TYP BCf 5) T 
IPOOEfPRTIS) ,PRE,AXBC,X(103 ItRWClOOl ,F Ji 0, XOO J , GC,C J, AMI 100) ,PRO, 
2UGU00) fPOvSOURCEfRETRANiNUNR(JN,SPACEtRNQ,PPLAGfOUTPUTtDElTAX,GV 
3/E/N, NPltNP2,NP3,NEQ,NPH,XEX, KIN, RASE fKRA0tGE0H,FLUID,6OOFOR,YPMIN 
4/GG/BETA,GANA(5l , A JI I 5) , AJE4 SI , INDI 15 ) , INOEi 5 ) ,TAU,OWff 5) 

5/Y/U(54) ,FI5,54) ,RC54lfONl 54ltY(54) ,UGU, USD, UI fFIl 5> ,FHEAN,TAUW 
6/N/SCf 54)tAUI54l ,BU(54I,CJI54I , A( 5, 541 ,01 5 , 54) ,C 1 3,54) , SU(5,54 ) , $0 
7/L/AK,ALHGf ALMGG ,FRA,APLtdPL,AQ, 00, ENU154) ,PREF15, 54t,AUXHl 
8/LI/YL, UHAX,UMIN,FR,YIP,YEN,£NFRA,KENT,AJXM2 

9/P/RH0C54l,VISaM54l,PRC5,54l,RH0C, VISCOC,PRC< 5) ,T (54 ) , RHOM, BF « 54 ) 
I/0/H,REHtCF2,ST(5l,LSUB,tVAR,CAY,REH,PPL,GPL,QH<5) ,K0 
2/CN/AXXf BXX,CXX ,0XX,EXX, <1 ,K2, K3, SP (54) ,AUXl (100) , AUX2( 100), YPHAX 
3/AD0/R60P(54),CNC(54) ,ROHO(54) f ITKE 


'go to ( 100,200, 300,400,500), KSTEP 




STEPOOOO 

STEPOOlO 

STFP0020 

STEP0030 

STEP0040 

STEP0050 

STEP0060 

STPPOOTO 

STEP0080 

STEP0090 

STEPOlOO 

STEPOllO 

STEP0120 

STFP0130 

STEP0140 

STEP0I50 

STEPOIBO 

STEP0170 

STFPOieO 

STEP0190 


STEPl COHPUTES SLIP POINT QUANTl TI cSt BtTA , GAHA ( J ) AT 
BEGINNING OF INTEGRATION OR AFTER LAHSU0 HAS 
BEEN ACTIVATEO. 


100 GO TO (22,24,26) , KIN 

22 lF(LSUe#GT«0)G0 TC 23 
BETA*(U(4 >/U(3)-l.)/( Y(4)/Y(3)-l») 

23 U(2)«U(3>/( 1.^2.*BETA) 

Y(2)-Y( 3)*BETA/( 2.»BETA) 

GO TO 30 

•... FREE BOUNCARY 

24 Ull»U( I |AU( 1 I 
Ll3*UmPU(3) 
t33*U(3)*U( 3) 

SQ*64.A'U11-12,*U13»9*4U33 

U(2)*( 16.*Ull-4.AUl3«-U33)/ (2-* ( U( 1 ) ♦U (3) ) ♦SORT (SO) ) 
Y(2)»Y(3)A(UC2)^t(3)-2.*U( 1 ) )♦ . 5/ ( U (2 ) *^UC 3 ) U( 1) ) 

GO TO 30 

26 IF(KRAD«NE.O) GO TC 26 

symmetry LINE, PLANE FLOm 
U( 2)*C4,4U(l)-U(2))/3. 


STEP0200 

STr.P02lO 

STFP0220 

STEP0230 

STEP0240 

STEP0250 

STEP0260 

STEP0270 

STEP0280 

STEP0290 

STCP0300 

^TEP0310 

STEP0320 

5TFP0330 

STEP0340 

STEP0350 

STCP0360 

STEP0370 

STEP0380 

STrP0390 

STEP0400 


Y(2)*0. 

GO TO 30 

SYMMETRY LINE, AXIALLY SYMMETRICAL FLOW 
26 U(2)«U(1) 

Y(2)*Y(3)/3. 

... SAME AS ABOVE BUT FOR REX 

30 GO TO (32,34,361 ,XfX 
... MALL 

32 IF(LSUB.GT.O)GO TC 33 

BETA-(U(N)/U(NP1 )-l. ) / ( ( Y( NP3) -Y (R) >/ ( V(NP3) -Y (NPl ) 1-1. ) 

33 UINP2)*U(NPl)/(l.^2.A8ETA) 

Y(NP2)*Y(NP3)-(Y(NP3)-Y(NPi) l•BETA/(2•fBtTA) 

GO TO 38 

34 U11*UINP1)AU(NP1 ) 

U13=U{NPI)MU(NP3) 

U33>U(NP3)MU(NP3) 

S0=84.*U33-12.*U13*9.*Uii 

FREE BOUNCARY 

U(NP2) *C 16.AU33-4**U13*-U1 1) /(£••( U (ftiPl *«*U(NP3))^SCRT(S0)) 


STEP04L0 

STEPQ420 

STPP0430 

STCP0440 

STFP0450 

STEP0460 

STEP0470 

STCO0430 

STPP0490 

STEP0500 

STEP0510 

STCP0520 

STEP0530 

STFP0540 

STEP0550 

STEP0560 

STPP0570 

STEP0580 

STPP0590 
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y(NP2l=^Y(NP3 )-(Y(NP3>-yiNPin*(U(NP2i ♦UCNPl l-2.*U(NP3) ) ♦. 5/ 
1(U(NP2)^U(NP1I+U(NP3) ) 

GC TO 38 

C 5YP*HETgr LINE 

36 U(NP2J*f4,*U(NP3 J-UINPiM/3. 

YfNP2)=YCNP3l 
38 CONTINUE 

If(NEC-EC.n GC TC 58 

C CALCULATICN CP SLIP VALJES fJiL OTHER OEPEYOcNT VARIABLES 

DO 56 J=l,NPH 
IF(LSUB*E0.0JGAM4UI = O*0 
GO TO M2i44,46» *KIN 

42 IP<SOURCEIJI.EC.2.0R.ABS(F( J,3)--F4J,lJULE..u01)G0 TO 43 
IF(LSUB.GT.0IG0 TC 43 

GAHA( ( Jt4)-F(J,l) )/( U.il ) -U I / < Y( 4 I /Y ( 3 ) . I 

4 3 FU,2)=F<J,nt«F(J,3)-F( J, i I . ♦BET A-GA^ A< J ) )/ ( 1 . ♦BET A «^GAMA ( J M 
GC TO 48 

44 G*fUC2>^lJC3)-8,AUl)*/<5.PlUI2)+U43)J^8.*UUn 
GF*(1,-PRT(J ) )/n.«*PRTU)) 

GF » (G^GF )/ ( 1**G*GF I 


STPP0600 
STEP0610 
STFP0620 
STEP0630 
STFP0640 
STFP0650 
STEP 0660 
ST'^P0670 
STEP06R0 
STPP 06<?0 
STFP0700 
STEP0710 
STEP0720 
STEP0730 
STEP0743 
STFP0750 
STEP0760 
STCP 0770 
STEP0780 
STEO 0790 


FUf2 )-F<J,3I»GF4U.-GF>*F(J,1I 
GO TO 48 

46 FIJ,2)=F4J,l» 

IF(KRAD.E0.0)F(J f2l-U.«F( Jtll-F( j, 3J }/3. 

48 GC TO <50.52«54l ,KEX 

50 IFISOURCEC Jl .CC.2.Dl.A6S(F< J,.\|PU-r(J,NP3n .LE.,OOl)GO TO 51 
IFUSUB.GT.OIGO TC 51 

GAHA(JI»(4FC J,N)-FUrNP3M/IFC JtNPi)-FU.NP3 I ) -1 • I /( ( Y( NP3 ) - Y 
XCY<NP3l-Y<NPlH-l.» 

51 F( JfNP2l*FU»NP3l*(FU*NPl l-F IJ , nP3 ) J ♦SET A-GAMA( J ) »/( 

IGAHAIJII 

GO TO 56 

52 G-(UINP2)fU<NPll-e.*UINP3) 1/ {5.*iulNP2> ♦Ul NPi H^8. *U{NP3n 

GF«< 1 .-PRT( jn/< l.^PRTUII 

GF * (C^GF)/<1«^G«GFI 
^ FUtNP2l*F|J vNPL I^GF^(l,-GFJ*F(J,NP3l 
GO TO 56 

54 FU«NP2l«f4«*F(J,KP3l-FU»NPll 1/3. 

56 CONTINUE 
56 continue 
RETURN 

STEP2 COMPUTES OPdl ARRAYS ANO PEI 

AT BEGINNING OF INTEGRATIDN OR AFTER LAMSUB HAS 

BEEN ACTIVATEC. 

M!! [calculation CF RACII 

200 IF(KRAD«E0*0> go TC 220 
DO 210 I«2fNP3 
210 Rm=RUI>Y(I)*CSALFA 
GO TO 240 

220 00 230 1«2»NP3 

C Rfll CANNCT ECUAL ZERO 

230 R<n«RUI 
Z'iO CONTINUE 

C CALCULATION CF OMEGA VALUES. THESE VALUES ARE ESTABLISHED BY 

C INITIAL VELOCITY PROFILE ANO REMAIN UNCHAYGcO THEREAFTER. 

CMm^O.O 
CMC2)^0.0 
00 250 I*3»NP2 


STFP0800 
STFP0810 
STFP0820 
STE*»0B30 
STFP0840 
STEP0B50 
STEP0860 
(N) )/STFPO07O 
STFPOaflO 
ETA^ STEPO09O 
ST'=P0900 
STFP0910 
STEP0920 
STEP0930 
STEP 0940 
STEP0950 
STEP0960 
STEP0970 
STEP0980 
STEP0990 
STFPIOOO 

STEPlOlO 

STEP1020 
STEP1030 
STEP 1040 
STEP 1050 
STFP1060 
STEP 1070 
STEPIORO 
STEP 1090 
STEP 1100 
STFPlllO 
STEPU20 
STFP1130 
STEP1140 
THE STEP1150 
STEP 1160 
STEP1170 
STEP1180 
STEP 1190 
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c 

c 


c 


c 

c 


.... FOLLOWING EOLATION RcSULli FROM CONTINUITY 

250 CM(I l=Own-l »*.5* IRHO 1 1 )*JU »*RI I l-U*U< I-U ♦P C 1- 1) )* STEP 1210 

Iivm-Yll-In STEP1220 

PEI-CMINP2I STEP1230 

.... OMEGA IS NCRPALI2E0 AT THIS POINT STEP12A0 


DO 260 I>3fNPI 
260 CM(II<OM(I >/PEI 
CM(NP2I>1.0 
CMINP3)>1.0 
CO 270 I»2.NP1 
RBOMm-l,/ICPn*l)-OMlI-ilI 
cMD<n»OP(i*n-opm 
ROMOm>l./OMO< I ) 

270 CONTINUE 

IFILSUB.GT.OIRETURN 
DO 2S0 I - 5»RP1 
KXERR > 0 

OMRAT « lOMin -CP(I-1U/(0M(I-1I - 0NI1-2)I 
IF(0MRAT.GT.A.a.CR.0MRAT.LT.0.2i)KXERR > 7 
IFIKXERR.EQ.7ShRlTE(6,275l I 
1FIKXERR.E0.7)LVAR-8 
IF ILVAR.EQ.8I OtTPUT-6 
280 CONTINUE 

275 FORMAT! /t37H PROGRAM TERHINATcO BECAUSE THE OMEGAt/ 
121H SPACING BETWEEN I • ,I 2, 1X,17MAND THE PRECEDING,/ 
2A9H NODE IS EITHER MORE THAN FOUR TINES OR LESS THAN,/ 
33AH ONE QUARTER THE PRECEDING SPACiNGI 
RETURN 


STEP 1250 
STEP 1260 
STEP 1270 
STEP 1280 
STEP1290 
STEP 1300 
ST=P1310 
STEP 1320 
STEP 1330 
STEP 1360 
STEP 1350 
STFP1360 
STEP 1370 
STEP 1380 
STEP 1390 
STEP 1600 
STEP1610 
STEP1620 
STEP 1630 
STEP 1660 
STEP 1650 
STEP 1660 
STEP1670 
STEP 3 STEP 1680 


STEP3 CCMPUTES Y'S,R‘S STEP1690 

AND COMPUTES UMAX,UMIN,ANO YL STEP 1500 

STEP1510 


300 IF flNTG.EO.O) GC TO 360 
••••V NEAR THE I BCUXCARV 
GO TO 1312, 316, 3161, KIN 

312 YI2I«<1.«BETA)*OP(3)*6./((3.*RHOI2)«-RHOI3I I* I UI2I«^UI 3 > M 
GO TO 320 

316 Yt2l-12.*0M(3)/f (3.*RHOt2)«RHO(3l )*(U (2 J «^UI 3 I p6.*UI 1 )) I 
GO TO 320 

316 Y(2l».560Mm/(RHCm*U(l) ) 

320 Y(3l-Yf 2I+.25PCM(3I*!1,/IRHO(3IPOI3>I*2./IRHOI3I*UC3I»RHO(2»* 

lUf2m 

IFfBETA.GC.0.9.ANC.KIN.EQ.l)Y(3)-3.O*OMI3l/(RHOI3l*UI3» ♦RH012I 
1*01 2»l 

....Y >S FOR INTERMECIATE GRID POINTS 
DO 330 1-4, NPl 

330 Yf I»-Y(I-l)«2.P0PDfl-ll/(RH0m*U41)*-RH0fI-ll*U(I-m 
....Y NEAR THE E BCUNCARY 

VINP2>-Y(NPl)».254CM0(NPllPa./<RH0INPll*UlNPn)p2./ 
llRH0(NPl)*U<NPlMRH0(NP2)*U(NP2ni 
CO TO (332, 334, 3361, KEX 

332 V(NP3)-Y(NP2)*(l.*BETA)*0N0(NPlI*4./( (RHQINP 1 I ♦3«*RH0(NP2 
1)I*(UINP1I*U(NP2I II 

IF (BETA. GE. 0.9) Y(NP3l-YI NPII ♦!. 5*(0NINP2I -ON (NPl 1 1 / 

1 I0.56(RHO(NP1)4U(NP1I«^RHO(NP2I*UINP2))» 

GO TO 340 

334 Y(NP3}-V(NP2)«12.*OMD(NP1I/((RHO(NP1J*3.*RHO(NP2I1*(U(NP2 
iiPUiNPiiPA.PuiNPam 
GO TO 340 

336 Y(NP3)-Y(NP2)^.5*0HD(NPlJ/(RH0(NP3)*U(NP3n 


STEP 1520 
STEP 1530 
STEP 1560 
STEP 1550 
STEP 1560 
STEP 1570 
STEP 1580 
STEP 1590 
STEP 1600 
STEP 1610 
STEP 1620 
STEP 1630 
STEP 1660 
STEP1650 
STEP 1660 
STEP 1670 
STEP 1680 
STEP 1690 
STEP1720 
STEP 1730 
STEP 1760 
STEP 1761 
STEP 1762 
STEP 1750 
STEP 1760 
STEP 1770 
STEP 1780 
STEP 1790 
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340 IF (KRAD.EQ.O) 60 TO 344 
DO 342 I-2iNP3 

342 Yni«2.4yC!l4PEI/|Rf U^^SQRTCRC II 4RU 14^2. *YC II 4P€I*CSALF A 1 1 
GO TO 350 

344 DO 346 !-2fNP3 
346 Ym«P€!4Ym/RCll 

350 V42I-2.4YI 2I-YC3I 
lF(6ETA.6E.0.9.AI<D.KlN.£Q.llYI2l«y(3i /3. 
rF(8ETA»GT.0.9.AA0.KEX*EQ.l»G0 TO 331 
Y(NP2I»2^4VIRR2I-Y«NPU 

GO TO 352 

351 Y<NP2l«C2»*YINP3l*Y<NPlll/3. 

C.... .CALCULATION OF RADII 

352 00 355 I»2«NP3 
!F(KRAO«EO«OIRI! I«R( 11 
1F(KRAO.HE.O»RCX )«R4 LI«^YII I«CSALFA 

355 CONTINUE 

.••..CALCULATION OF THE BOUNDARY LAYER THICMESS 

BASED ON THE FR CRITERION USED IN ’INPUT*. I.E.t IF FR 

1$ 0.01 1 THIS ROLTTNE CALCULATES YL NHICH IS THE 99 PER- 

CENT thickness OF THE BOUNDARY LAVER. YL IS THEN A DISTANCE 

NHICH A TURBULENCE LENGTH SCALE IS BASED. 

SEARCH FOR THE MAXIPUN AND MINIMUM VELOCITIES 
360 UMAX«U(1I 
UMIN«U4ll 
CO 375 J»3tNP3 
IFU.EQ.NP2I GO TC 375 
IFfUfJ).GT.UPAX}UPAX«U4Jl 
IFIUIJI .LT.UP1NIUP1N«U(UI 
375 CONTINUE 

DiF«ABS(UMAX-UPlNI^R 

C SEARCH NEAR THE 1 BOUNDARY 

IF4RIN.NE.2I GO TC 386 
U21»ABS<.5«(U(2) «U (3)1-0411 1 
IF(U21.LT.01FI GO TO 380 
YIP»SQRTC0IF/U2IIA(Y(2I»Y43)|4.5 
GO TO 386 
360 J«2 
382 J«J»l 

UJi«U4 Jl-Ufll 

IF(ABS4UJlt.C£«01FI GO TO 384 
GO TO 382 
384 Ai-I. 

IF(UJI.LT.0.IA1«-1. 

YIP«Y( Yl J)-Y(^in«>( UUI ♦Al»OiF-U( J-l) I / < U( J l-U « J-l 1 1 

GO TO 388 
386 YIP^O. 

C SEARCH NEAR THE E BOUNDARY 

388 IFIKEX.NE.2I GO TO 396 

U2I*ABS( .5A(U4NP1I4U4NP2II-U4NP3I I 
1F(U21.LT.0IFI GC TO 390 

^M»S0RT(DIF/U21)A(.54|Y4NPIUY(nP 2I)-YCNP3I l•►Y(NP3) 

GO TO 398 
390 J»NP2 
392 J*J-1 

UJl*U4 JI-U4NP3I 
IFIABSIUJi I.CE.OIFI GO TO 394 
GO TO 392 
394 Ai*l. 

IF4UJ1.LT.0.IAI*-!. 


STEP 1800 
STEP 1810 
STEP 1 820 
STEP 1 830 
STEP 1840 
STEP 1850 
STEP I860 
STEP 1870 
STEP1880 
STEP 1890 
STEP 1900 
STEP 1910 
STEP 1920 
STEP 1930 
STEP 1940 
STEP 1950 
STEP I960 
STEP 1970 
STEP 1980 
STEP 1990 
STEP2000 
STEP2010 
STEP2020 
STEP 2030 
STEP 2040 
STFP2050 
STEP2060 
STEP2070 
STEP2080 
STEP 2090 
STEP2100 
STFP2110 
STFP2120 
STEP2130 
STEP 2 140 
STFP2150 
STEP2160 
STEP 2170 
STEP2180 
STEP 2190 
STEP 2200 
STEP2210 
STEP2220 
STFP2230 
STEP2240 
STEP 2250 
STEP 2260 
STEP2270 
STEP 2280 
STEP2290 
STEP 2300 
STFP2310 
STEP2320 
STEP 2330 
STFP2340 
STEP 2350 
STEP2360 
ST6P2370 
STEP 2300 
STEP2390 
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YCM-Yf J»ll^CYUl-YU+l>|*4UiHP3l»Al*OIF-U« J*ll 1/ (U ( J »-U t J^l) I 
GO TO 396 
396 YEM-VfHP3) 

398 YL-YEfHYIP 
RETURN 

STEP 6 

STEP4 CALCULATES ALL OF THE COEFFICIENTS FDA THE 

•..*«F1N1TE DIFFERENCE EQUATIONS. 

•«.««THE FOE«S ARE THEN INJEGAATEO. 


• ...SOURCE TERHSf SUUtllt AND SNALL C*S ARE CONPUTED IN 
....SUBROUTINE AUX. 

....THE CONVECTICN TERN 

400 KXX«0 
KXXX-O 

401 RFDX»l./4./0X 
SA«RI1)4ANI/PEI 

SBDF- IR f NP3 ) AANE-R <1 I^AHl I /PEI /4. 

P2»3.4RF0X 
DO 420 l>3fNPI 
P1-0N0< I )*RFCXAR8CN( I I 
P3«0N0< 1-1)ARFCX«RB0NUI 

Gl«Pl^lSA^SBCF*(CN(l^ll^3.A0Hm } )6AB0Nm 
G2-P2-SB0F 

G3«P3-I SAfrSBDFA( ONn-IiO. «0H( 1 1 IJ«RBON< 1 \ 

Aun »>scni*RCNom62.«AB0Mm 
BUM )-SC<I*l)AR0MDn-ilA2.4RB0HU I 
CU< 1 1— PIAUI »-P2*Un»-P3AUI 1-1 ) 

IFINEQ.EQ.il GO TC 410 
00 405 J«lfNPH 

Cl Jf n*-Pl*FC J,r*ll-P26FCj,II-P34FlJt I-ll 

ccjf n*-c(jf I) ♦suijf ii-F(j,ii*so 
AU»I l«AUm/PREF(J«n 
BUtll-Bmn/PREFIJfl-ll 
405 CONTINUE 
410 CONTINUE 
C SOURCE TERN FOR VELOCITY EQUATION 

51- OPDX60X-GC4BF C 1 |40X 
S2»P24S 1/ < RHCU I «U II ) I 
S3»P34Sl/IRHCn-ll4UM-in 
Sl*Pl*Sl/(RHOII^n*UM^lM 
CUI II— CUI I 1-2.6 C Sl^^^SS) 

Sl»SI/UII^l) 

52- S2/UIII 

53- S3/UI1-1I 

C.... .COEFFICIENTS IN THE FINAL FORN 
RL»l./IG2^AUII I^BUIl I-S2I 
AUl n»( AUl 1 ) ♦Sl-Gl I6RL 
BUm*CBUllMS3-G316RL 
cu<n*cum6RL 
IFINEQ.EO.l) 60 TO 420 
DO 415 J«lfNPH 
RL«i./IG2«^AfJ»IM6(itII-SDI 
AU.II*(A( J« II-G1I6RL 
BIJf n«IBUt I>-G3)6RL 
415 CCJfl »«CCJf I )6RL 
420 CONTINUE 

SLIP COEFFICEINTS NEAR THE I BOUNDARY FOR VELOCITY EQUATION 

CU(2I«0. 

CUINP2I-0. 


STEP 2400 
STEP 2410 
STEP 2420 
STEP 2430 
STEP 2440 

STEP2450 

STEP 2460 
STEP 2470 
STEP24R0 
STEP 2490 
STEP 2500 
STEP 2510 
STEP2520 
STEP 2530 
STEP 2540 
STEP2550 
STEP 2560 
STEP2570 
STEP 2500 
STEP 2590 
STEP 2600 
STEP2610 
STEP2620 
STEP 2630 
STEP2640 
STEP2650 
STEP2660 
STFP2670 
STEP2680 
STFP2690 
STEP 2700 
STEP2710 
STEP2720 
STEP2730 
STFP2740 
STEP 2750 
STEP 2 760 
STEP2770 
STEP2780 
STEP 2790 
STEP 2800 
STEP 2810 
STEP2820 
STEP2830 
STEP 2840 
STEP2850 
STEP2860 
STEP 2870 
STEP 2880 
STEP 2890 
STEP 2900 
STEP2910 
STEP 2920 
STEP2930 
STFP 2940 
STEP2950 
STEP2960 
STEP2970 
STEP2980 
STEP 2990 
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GO TO I422»424*42«I,K1N 
422 BU<2t«0. 

AUC2)>l./( l.«2.*eETAI 
GO TO 430 

424 S0^84.*Ull)4t(l)>12*4U(l)*U(3)^9«*U(3l*UOI 

BU(2)-8.*(2.4U(1 )*U(3i}/(2.«U( 1 >»7.*u(3l»S0ftTI SOI I 
IF(U(SI .LE.um ieUf2I*l. 

AUC2)«1.-BU(2I 
GO TO 430 
426 BUI2I-0. 

AK1«1 ./OX-(DPOA-GC*BF12I i/ IRH0( L)«UU l*UUI I 
AK2*-UI 1 1 *AK !♦ (DP0X-GC*BF < 2 » J / J RHOI II »U ( 1 1 1 
AJ-RHO( l)*UI II*. 25*l Y(2)«-YI3l)«*2/cNU(2l 
IFIKRAO.EQ.O I GO TO 428 
AUC2I-2./l2.»AJ*AKll 
CU(2I>-.5*AJ*AK24AU( 21 
GO TO 430 

428 CU(2I»1./{2.«3.4AJ*AK1I 
AU(2I«CU{2)*<2«-AJ*AK1) 

CU(2I— CU(2)44.*AJ*AK2 

C.....SLIP COEFFICIENTS NEAR THE E BOUNOARY FOR VELOCITY EQUATION 
430 GO TO 1 432 ,434 .4 36 1, KEX 
432 AUCNP2I-0. 

BU(NP2l«l./f l.«2.*BETA) 

GO TO 440 

434 S0-84.*U(NP3)*Uf NP3)-12.*U(NP3l*UINPi l«-9.*UINPll*UfNPl) 

AU<NP2I«8.*I 2.*U<NP3I *^UINP1I )/ ( 2 .«U<NP3 I^T .*Uf NPl I ♦SORT I SOI I 
BU(NP2I«U-AL(NP2I 
GO TO 440 
436 AU(NP2I-0. 

BKl»l,/0X-tDPDX-GC*BF(NP2l 1/ (RH0(NP3I *Uf NP3 1 *U INP3 1 1 
BK2>-'UINP3I*BK1^(DP0X-GC*BF(NP2I )/(RH0(NP3l*U(NP3l I 
BJ«RH0INP3I*UINP3)*»254f 2.*Y(NP3)-YINP11-Y(NP2II*«2/EMUINP1I 
CU(NP2»«l./( 2. «3. *63*6X11 
BU<NP2I*CU(NP2)*12.-BiJ*8Kl i 
CU(NP2) — CU( NP2 I *4.*B3*BK2 
440 IFINEO.EQ.ll GO TO 471 

C SLIP COEFFICIENTS NEAR THE I BOUNOARY FOR OTHER EQUATIONS 

00 470 3-1, NPH 
Cf3f2l-0. 

C(3,NP2l-0. 

GO TO 1452,4:4, 4561, KIN 

452 IF flN0I(3I.EQ.ll GO TO 453 
VA»6AMAI3t/m.^BETAI*I0MP(3l*^ANI|l 
A(3,2I*C1.-YA*AMI)/I1.WA*AN1I 
BI3,2)«0. 

C(J,2)«2.*AJtl3l*VA/(l.^VA*AMII 
60 TO 460 

453 Af3,2)«tl.^BETA-6ANA<3l)/( l.«-BETA^GANA( 31 1 
Bf3»2i*l.-A(3,21 
IF($OURCE(3I.NE.2IGO TO 460 

AIJ,2}«-‘1. 

BI3,2I«0. 

CI3,2I*2.*FH3I 
GO TO 460 

454 A(3,2l>IU(2l»U(3l-8.*umi/(S,*tU(2l*U(3llA8.*Ull} I 
CF-I1.-PREF(3,2I I/It. *PREf 13,211 

A13,2I«IAI 3,2I*GFI/I1.«AI3,2I*GFI 

6f3,2l>U-AlJ,2l 

GO TO 460 


STFP3000 

STEP3010 

STEP 3020 

STEP3030 

STEP 3040 

STEP3050 

STEP 3060 

STEP3070 

STEP 3080 

STEP 3000 

STEP3100 

STEP3110 

STEP3120 

STEP3130 

STEP3140 

STFP3150 

STEP3160 

STEP3170 

STEP3180 

STEP3190 

STEP3200 

STEP3210 

STEP3220 

STEP3230 

step 3240 

STEP3250 

STEP3260 

STEP 3270 

STEP 3280 

STEP3290 

STEP3300 

STFP3310 

STEP 3320 

STFP3330 

STEP3340 

STEP 3350 

STFP3360 

STEP3370 

STEP 3380 

STEP3390 

STEP 3400 

STEP 3410 

STPP3420 

STEP3430 

STEP 3440 

STEP 3450 

STEP3460 

STFP3470 

STEP3480 

STEP 3490 

STEP 3500 

STEP 3510 

STEP 3520 

STEP 3530 

STEP 3540 

STEP 3550 

STEP3560 

STEP 3570 

STEP 3580 

STEP 3590 
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n n o 


c 


c 


M56 BIJt2I*0. 
DS>0. 

AKl-1. /OX-OS 


CS-0. 

AK2— AKl*FIJfll-CS 
AJF«AJ*PREF( Jf2) 
IFIKRAO.EO.OI GO TO 457 
AU,2l-2./<2.*AJF^AKl) 
CU.2)— .5*AJF*AK2*A( J,2» 


GO TO 460 

457 CIJ»2I-1./(2«»3.*AJF*AKU 
A(Jf2»-C( Jf2»*C2.-AJF*AKl» 

CUi2»—C( J»2I*4.*AJF*AK2 

....SLIP COEFFICIENTS NEAR THE E BOUNOART FOR OTHER EQUATIONS 


460 GO TO I462»464*466I»KEX 
462 IF lINDEUI.EG.l) GO TO 463 

VA-GANA(JI/lll.»eCTAI*IOWF Ul-AMEI) 

BUtNP2»-<l.*VA*ARE)/Il.-VA*AHEI 

A(JtNP2)-0. 


CU.NP2l*-2.4AJEUI*VA/(l.-VA*AMEI 


463 fi(J»NP2) - Il.*BETA-6AHAIjn/U.»B£TA GANAUII 
A(J*NP2) * 1. - B(JfNP2) 

IFf SOURCE! JI.NE.2IG0 TO 470 
AfJtNP2l-0. 

8< JtNP2)»l. 

C<JfNP2)«2.«FI( Jl 

464 B?j!NP2l»(UfNP2»*U!NPl»-8.*U!NP3l 1/ (5.*iOINP2l ♦UtNPl ) l♦8.*U(NP3J ) 
GF-Il.-PREF! JfNPlU/I l.»PREF(J,NPll » 

BIJ,NP2»-(BI J,NP2l*€FI/(l.*BCJ.NP2l*GFI 
A(J»NP2)*1.-B( JtNP21 
GO TO 470 
466 AfJtNP2)«0. 

05>0. 

BK1*1. /OX-OS 


470 


471 


CS-0. 

BK2>-BK 1«F I J ,NP3 l-CS 
ejF-BJ*PREF(JffcPl) 

CIJ»NP2»-l./«2. + 3.*BJF*BKn 
B(J,NP2l-CIJ,NP2l*«2.-BJF*BRll 
CIJ.NP2I--CI J.NP2»*4.*BJF*BK2 
CONTINUE 

.SETTING UP VELOCITIES AT A FREE BOUNDARY 

IFIKEX.EQ.2IUCRP3l»S0KT(UINP3l*U<NP3l-2.«X*(t>PDX-GC*BF!NP3l» 


1/RH0CNP3 ) } 

IfnCIN.EQ*2)Ulll*SQRT(UUI*UCU-2.*0X^(0Pt)X-GC«F( IM/RHOlin 

«...TH1S IS THE TRl-OIACOMAL ROUTINE NHERE THE FINITE 
.•••OIFFERENCE EGUATIONS ARE ACTUAtLT SOLVED. 

•••• INTEGRATE VELOCITY 

BUI2I • eU(2l*U(II ^ CU42I 
00 472 I*3fNP2 
TT - i./ci.^euniMuH-iii 
AUIII « AUm^TT 

472 BUIII • IBUm^BUCI-li ♦ CUIIII^TT 
DO 474 I«2«NP2 
JJ»NF2-I^2 

474 UUJI*AUIJJI4UfJJ^l)«’BUliJI 
DO 476 I«3fNPI 
lFCUm.6T.O«OIGO TO 476 


STEP 3600 
STEP3610 
STEP3620 
STEP 3630 
STEP 3640 
STEP 3630 
STEP3660 
STEP 3670 
STEP 3680 
STEP3690 
STEP 3700 
STEP 3710 
STEP 3720 
STEP 3730 
STEP 3740 
STEP 3750 
STEP 3760 
STEP 3770 
STEP 3700 
STEP 3790 
STEP 3000 
STEP 3010 
STEP 3020 
STEP 3030 
STEP 3040 
STEP 3850 
STEP 3860 
STEP3870 
STEP3O0O 
STEP 3090 
STEP3900 
STEP 3910 
STEP 3920 
STEP 3930 
STEP3940 
STEP 3950 
STEP 3960 
STEP3970 
STEP 3900 
STEP 3990 
STEP 4000 
STEP4010 
STEP 4020 
STEP 4030 
STEP4040 
STEP4050 
STEP4060 
STEP 4070 
STEP 4060 
STEP 4090 
STEP4I00 
STEP4110 
STEP4120 
STEP4130 
STEP4140 
STEP4150 
STEP 4160 
STEP 4170 
STEP4180 
STEP4190 


91 



UIII— Uf II 

STEP4200 


KXX«1 

STEP 4210 

476 

CONTINUE 

STEP4220 


KXXX-KXXXtl 

STEP 4230 


1F<KXX.EQ«0IG0 TO 47S 

STEP4240 


IFIKXXX.GT.2ieO TO 476 

STEP4250 

C • • • • 

.ATTEHFT TO RE-$OLVE IF NEGATIVE VELOCITY APPEARS 

STEP 4260 


IFfKEX.EQ.2IAME-ARE/U3 

STEP6270 


1FIKIN.E0.2I AMI>API/U3 

STEP4280 


00 4777 1*2, NPl 

STEP4290 


RAVG«0.5*|RII*ll*RiII3 

STEP 4300 


RHOAV-O.S*<RHO(I«il«-RHO(I»l 

STEP4310 

c« • • • 

• ADJUSTMENT OF EMU AT 2.5 AND N«-1.5 

STEP6320 


IF II.GT.2J GO TO 4777 

STEP4330 


IF (KIN.NE.ll GO TO 4778 

STEP4340 


IF l6ETA.LT.0.02.0R.eETA.GT.O«9l 60 TO 4777 

STEP6350 


EMU(2l-TAU*(V(2i*Yl3»)/(BETA*(U(2)«-U(3)li 

STEP4360 

4770 

IF (KEX.NE.ll GO TO 4777 

STEP4370 


IF (BETA. LT. 0.02. OR. BETA. 6T. 0.91 60 TO 4777 

STEP4380 


EMU(NPl}-TAUP(Y(NP3i-0.5P( Y(NPll»Y(NP2il 17 

STEP4390 


1(BETA*0.5*(U(NP1 )4U(NP2I ) ) 

STEP4400 

C • • • • 

.COMPUTE SMALL C'S 

STEP4410 

4777 

SCn>«RAVG*RIVG*RH0AV*0«5*(U(l«-ll«-U(I tI«ENU( II/(PEI*PEI 1 

STEP4420 


WRITE (6,4771 INT6 

STEP4430 

477 

FORMAT (/lOX, 'VELOCITY NEGATIVE, RE'SULVE, INTG*',I4/I 

STEP 4440 


GO TO 401 

STEP4450 

478 

CONTINUE 

STEP4460 

€••••< 

.SETTING UP VELOCITIES AT A SYMMETRY LINE 

STEP4470 


IF(KIN.NE.3I GO TO 4B0 

STEP4480 


U(1I>U(2I 

STEP4490 


IF(KRA0.EQ.0lum*0.75*U(2>«-.25«U(31 

STEP4500 

480 

IF(KEX.EQ.3>U(NP3I-.T5*U(NP2I*-.25*U(NP1I 

STEP4510 


IF(NEQ.E0.1i GO TO 494 

STEP4520 

C • ■ * • 4 

.INTEGRATE F EQUATIONS 

STEP4530 


DO 492 J»1,NPH 

STEP4540 


00 482 t*2,NP2 

STEP4550 


AU(1 l*AIJ,n 

STFP4560 


BUm»B(J,1 1 

STEP4570 

462 

CU(II*C(J,1) 

STEP4580 


IF (S0URCEIJI.NE.2I GO TO 4886 

STEP4581 


IF (ITKE.EQ.l) GC TO 4886 

STEP 45 02 


IF (KEX.EO.IJ GO TO 4884 

STEP4583 


00 4882 I«1,1TKE 

STEP4584 


AU(II«0. 

STEP 4585 


BU(II-0. 

STEP4586 

4682 

CU(II*F( JtITXEI 

STEP4587 


CO TO 4886 

STEP4586 

4864 

DO 4885 I*ITKE,NF3 

STEP4589 


AU(II*0. 

STEP4590 


BUUI-O. 

STEP4541 

4885 

CUm«FIJf ITXE) 

STEP 4592 

4686 

CONTINUE 

STEP4593 


BU(2I < 6U(2I4F(J,II * CU(21 

STEP4594 


DO 484 1-3, NP2 

STEP 4600 


TT • l./(l.-eU(I I6AU(I-1II 

STEP4610 


Audi - AUd )*TT 

STEP4620 

464 

Bum - {BU(n*BUd-ll *■ CU(1M*TT 

STEP4630 


00 486 1-2, NP2 

STEP4640 


JJ-NP2-I*2 

STEP4650 

486 

F(J,JJ>«AU(JJI*F(J,JJ«-1)»BU( JJ) 

STEP4660 
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n o o 


C 


••^•SETTING UP SVPPETPY-LINE VALUES OF F 
1FIKIN.NE.3I GO 1C 490 
FI J«U«F( Jf2l 

IFflCRA0.EQ#0IFIJtll-.754FlJf2l*-.25*FU»3» 

490 IFIKEX.EQ.3IFC JfHP3l»^75PFIJtNP2)«^.25*FIJf NPII 
492 CONTINUE 
494 RETURN 


STEP 5 


STEPS INITIALIZES PARAHETERS ANO SETS UP INITIAL CONDITIONS. 


500 XD»XU 
PRE-PO 
AHE«0. 

AHI-0* 

INTG-0 

BETA«0. 

CAY-0.0 
PPL*0.0 
YL-0.0 
REN- I. 

REH-1. 

H-l. 

CF2-0.002 

TAUN-0.02 

IF I NPH. E0« 0 ) SOURCE 1 1 1 -0 

DO 540 l-lfNP3 

ENUn 1-0*0 

BFm-0.0 

SPU 1-0.0 

IF (NPH.EO.O) GO TO 540 
DO 530 J-1»NPH 
STUI-0.002 
OWIJI-O.O 

IF (SOURCE! JUEQ. 21 PR(J»II-1.0 
530 CONTINUE 
540 CONTINUE 
FNEAN-0.0 
LSUB-0 
LVAR-0 
ALHG-ALNGG 
KRAO « 1 

IFIGEOH.EO.l >XRAD-0 

IF1GE0N.EQ.5)XRAC«0 

IFfGECM.E0.B)XRAC-0 

IFIGEOM.E0.9 IXRAC-0 

IFINEO.EO.il GC TC 560 

00 550 J»lfNPH 

AJKJI-0.0 

AJEI J)«0.0 

INDllJl-0 

INDE( JJ-0 

IFIKlN.EC.n INOI IJl-TVPBCi Jl 
IFIKEX.EQ. n IKOE ( Jl-TYPBCIJ) 

550 CONTINUE 
560 CONTINUE 
RETURN 
END 


STEP4660 
STEP4690 
STFP4700 
STFP4710 
STEP4720 
STEP 4730 
STEP4740 

STEP4750 

STEP4760 

STEP4770 

STFP470O 

STFP4790 

STEP4B00 

STEP401O 

STEP402O 

STEP403O 

STEP4R40 

STFP405O 

STFP406O 

STEP 4870 

STEP400O 

STEP4B90 

STEP4900 

STEP4910 

STEP4920 

STEP4930 

STEP 4940 

STEP4950 

STEP4960 

STEP 4970 

STEP490O 

STEP4990 

STEP 5000 

STFP5010 

STFP5020 

STFP5030 

STFP5040 

STEP 5050 

STCP5060 

STFP5070 

STEP5O0O 

STFP5090 

STEP5100 

STFP5110 

ST«‘P5120 

STEP5130 

STEP5140 

STFP5150 

STEP5160 

STFP5170 

STEPsiao 

STEP5190 

STEP 5200 

ST^P52lO 

STEP5220 

STEP5230 

STFP5240 


SUBROUTINE WALL 


WAILOOOO 


^^JGl}^Arr 
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c..... 

INTEGER GEOMfFLUIOfSOuRCEl 5J f SPAC£» BUOF JRr OJTPUT, T YP0C 
OIMENSION HWI5I tPCC5),PAWt 5I,PRIC5> •HPS<5) tOHYI 5) 

CONHON/GEN^PEI ,APNANE,OPOX,XJ,XOpXLf DX,lNTGfCSALFA»TYPBCI51 • 

IHOOEfPRTISI rPREfNXBCfXU3D l»RW( iOO» #F JI 5, lUO I » GC ,C J» A«C 100 1 0, 

' 2UGC100I fPO» SCURC EfRETRANfNUMRJNfSP ACE, RWa, PPL AG, OUTPUT, OELTAX,GV 

3/E/N,NPl,NP2fNP3,KE0,W>H,XEXf KINtXASE ,KKAO, GEOP, FLUI 0,B0DF0R, YPMIN WALLOOftO 


4/GG/6ETA,GAHA<5) , A JI( 51 , AJE( 51 , I NOl (5i,I^0E< 5* ,TAU,OWF< 5) WAllOO'JO 

5/V/UC5AI fF(5,;AURC54l,0HI5A), YC54) ,UGU,JGO,UI ,Fn 51 , FMEAN,TAU W WALL 0100 
7/L/AK,ALHG,ALRGCfFRA,APL,BPL,A0,8U,cMUI 541 , PREFf 5, 54 » , AUX Ml WALLOllO 

8/Ll/YL, UMAX, UPINfFR, YIP, YE MfENFRA, KENT, AJXM2 WALL0120 

9/P/RM0f54l ,VISC0(54l,PRI5,54>,RH0Cf VI5C0C,PRC<5>,T (54 ) , RhQM, BP ( 54 ) WALLOl 30 
1 /0/H,RENvCF2,STI 5 9, LSUBfLYAR, CAY, R£H, PPL, GPL ,0W(5) ,K0 WALL 0140 

2/CN/AXX,BXX,CXX,CXX,E«X,Kl ,K2, K3 ,SP 1549 , AJXl ( 100 9 , AUX2C 100),YP«AX WALL0150 


WALLOOlO 
WALL0020 
UALL0030 
WALL 0040 
WALL0050 
WALL 0060 
WALL 00 70 


IFCINTG.GT.UCR.LSUB.GT.OIGO TO 8 
KSTART*! 

MARKER-0 

C3-0.0 

C4*0.0 

C3N-0. 

C5*0«0 

BFOLD-0.0 

C5N-0.0 

AJ0-0»0 

AJN«0*0 

KKK»0 

TPLUS-1. 

CLOOPX-0,0 

DU0Y*1# 

APLO-APt 

BPLO-BPL 

EE»0«04 

IF(NPH.LT,19G0 TC 8 
00 6 J«ltNPH 

0MY(J|*1. 

6 OW(J9-100. 

8 LSUe-0 
LTPt-0 

c ■ SECTION ONE 

C THE JOIN POINT CCKDITIONS ARE SET UP HERE 

If (KEX.NE.I9G0 TC 20 
RHW-RH0CNP3) 

VI SG- VI scorn 

VISW-V1SCQ(NP3I 

RHC-RHOUi 

RHI-0,5«4RHOINP1URH01NP2I I 
VlSl-0.5*fVISC0(NPll4VlSC0(NP2l) 

BF0R-feF(NP2i4BF<NPlll/2. 

UGG - UGU 

Yl-Y(NP3l-.5«UUfil »V(NP2H 
UI-.5*IU(NP2»«U(KP1M 

UE«UCNI*CU(NI*UUPlll/(Y(NI-Y(NPll9«i YINI^«5«(Y(NPI9 4‘Y(NP2I) ) 

IF(M00E«E0.19UE-tI 

1F(BETA.€E*0«9IUE-U1 

UI-CU14UEI/2* 

REN-ABSfUl^Y I^RHIi/VlSWI 
AMW « *AME 

If (NEQ«EQ«II60 TC 40 


WALL0170 
WALlOieO 
WALL0190 
WALL 0200 
WALL0210 
WALL0220 
WALL0230 
WALL 0240 
WALL0250 
WALL0260 
WALL0270 
WALL 0280 
WALL0290 
WALL0300 
WALL0310 
WALL 0320 
WALL0330 
WALL 0340 
WALL0350 
WALL 0360 
WALL0370 
WALL 0380 
WALL 0390 
WALL 0430 
WALL 0410 
-WALL 0420 
WALL 0430 
WALL 0440 
WALL 0450 
WALL 0460 
WALL0470 
WALL 0480 
WALL 0490 
WALL 0500 
WALL0510 
WALL 0520 
WALL 0530 
WALL 0540 
WALL 0550 
WALL 0560 
WALL 0570 
WALL 0580 
WALL 0590 
WALL0600 
WALL0610 
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00 10 J«1.NPH 
HMU)>F( J,NP3> 

HCfJ)*F(JtU 
PRHlJt>Pft( J»NP3I 

PRIf Ji«0.5*(PR(J»fsPl) *PR( J rNP2) I 
FICJ»-.5*IFU,RP2>*FIJ,NPI ») 

FE»F( JiN>-(FIJ,N»-FIJ,NPl) J / JV IN »-r (riPl H •( r <N 5*< Y fNP I ) »V(fJP2) 

1 )> 

IF(M00E.E0.1)FE>FIf Jl 

IF<GAHA(J).r,E.O. 4.AND.GAHA ( J I . LE. 1. i) FE«F 1 (J ) 

IFISOURCEIJ) .EC.2IFE>E1( Jl 
10 FMJ) = IFI( J»*FEI/2. 

GO TO AO 

20 IFIKIN.NE.IIPETURK 
RHW=RH0m 

visw-viscom 

VISG>VISC0(NP3I 
RHG>RH0INP3I 
RHIa0.5P(RHOI2) «RH0(3I I 
VISI-0.5*(VISC0(2l*VISC0(3)i 
BF0R»(eF(2)»BF(3l 1/2. 

UGG * UGU 
VI-.5*IY(2)*VI3) I 
UI«.3*<U(2M-U3) I 

Ue-UI3)*0.5*<Yl2)-Y(3))*(JlA)-UI3n/i VI AI-»( Jl I 
1F(N0 DE.EQ.IKjE-III 
If (BETA.GE.0.9)UE>UI 
UI « lUI «■ UEi/2. 

REW-ABSIUIPY I*RHh/VISMl 
ANW « AMI 

IFINEO.EO.IIGO TC AO 
DO 30 J-ltNPH 
HW(JI«F4J,1) 

HGfJI>F(J»NP3l 

PRMlJI-PRIJtll 

PRIU)«0.5«(FRUt2>*^PRU.3n 
F|( JI*.5«(F(Jt2l *FUt3ll 

FE-FU,3l»0.5A<Y<2»-Y(3l)FlF(J,AI-F(J,3»l/CYiA)-YI3) I 
1F(M0DE.EQ.1>FE-FIIJI 

IF {GAMA I Jt .GE.0.9.AND<.CAMA(JI.LE.l.ilFE*FllJl 
IF( SOURCE! J».EQ.2IFE>F1(J I 
30 FI(J)-(FI(JI«FEI/2. 

AO UTAUW«SORT!GC«TAUti/RHWI 
irrAUG-SQRT(CC*TAUb/RHGI 
IFIREH.LT.A. I6C TC 160 

SECTION TWO 

SOURCE TERMS FOR COUETTE FLOM SI AC ENTHALPY EQUATION 

S*0.0 

IFCNEO.EQ.il GO TC 160 
DO 150 J>liNPH 

IFISOURCEtJI .EQ.3.0R.S0URCEUI.EQ.A1S-AUX<«2 
IFfSOURCEI JI.EQ.1.CR.S0UKCECJI.EQ.3IG0 TO 130 
GO TO 150 

130 1F(UGG.LT.0.01)GC TO lAO 
DEN0M«QM( JI«CJ 

IFIABSCOENOMI.LT.O.OOOOIIGO TO lAO 

NOTE: IF WALL MEAT FLUX IS NEAR Z£RO» VISCOUS DISSIPATION 

IS NOT PROPERLY HANOLEO. ALWAYS USE AT LEAST A SMALL 

heat flux, same true of heat source. S. 

C3N>TAUN*UTAUi/DENCM 


WALL0620 
WALL 0630 
WALL06A0 
WALL 0650 
WALL 0660 
WALL 0670 
WALL06R0 
WALL 0690 
WALL 0700 
WALL0710 
WALL 0720 
WALL 0730 
WALL07A0 
WALL0750 
WALL0760 
WALL0770 
WALLOTBO 
WALL 0790 
WALLOBOO 
WALL0810 
WALL0B20 
WALL0S30 
WALLO0AO 
WALL0850 
WALL0860 
WALL0870 
WALL 0880 
WALL 0890 
WALL 0900 
WALL0910 
WALL0920 
WALL 0930 
WALL09A0 
WALL0950 
WALL 0960 
WALL 0970 
WALL0980 
WALL 0990 
WALL 1000 
WALL 1010 
WALL 1020 
WALL 1030 
WALL 1040 
WALL 1050 
WALL 1060 
WALL 1070 
WALL 1080 
WALL 1090 
WALL 1100 
WALL 1110 
WALL 11 20 
WALL 1130 
WALL 1140 
WALL 1150 
WALL 1160 
HALL 1170 
WALL 1180 
WALL 1190 
WALL 1200 
WALL 1210 
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C4»VI SW^BFOR/ C2. ^OENOH^RHW I 
C5H-¥ISII^J/IRHW«0EN0N«UTAUW) 

X40 C3-CC3«^C3NI/2. 

C5-f€5^C5NI/2« 

If UNTG.LT.5IC3-0.0 
IFITYPBCUl.EOaiGG TO 150 
AJN-AJEUI 

1FCKIN«EQ«1}AJN>AJIU> 
lFCABS(AJNI»GT«AesaU.«AJOI IKRK-INTG 
lFnNTG.LE.CKKKi^l}IC3*0.0 
AJO-AJEfJI 

IFlKlN«EC«nAJ0»i41lJI 
150 CONTINUE 

— SECTION THREE 

••••COUETTE FtON EQUATION TERNS ARE CONFUTED HERE 
160 IF (INTG«tT«2l OLODPR-O. 

IF<UGG«LE«0»C1IGC TO 165 

CAY»-O.5*COPCX^OL0OPX-2.*GC^BFORI/(UGGAUGS#UGGI*VlSG/(RHG*RHGI 
165 PPL«.5*l0PDX^0L00PXI*VISW/fTALIU«RHM6GC«yTAUW» 
GPL*ANy/(RHN<UTAyti| 

BFPLU S« BFOR6 V I SW/ ( TAUH*RHH «UT AUH I 
BFPIUS-IBFPLUS+BFOLOJ/Z* 

BFOLD>BFPLUS 
IFlKSTART.EQ.llPPL-0. 

IF I K START • EQ • 1 1 BFPLUS«0. 

IF(KSTART.EQ.1IGPI>0. 

AKX»AK 

IF(N0DE*EQ.1IAKK>0.0 

..••TURBULENT FLGN OAPPING TERNS ARE CONFUTED HERE 
IF(KD»EQ«1)G0 TO 160 
IFIKO.EQ.BIGG TO ISO 
1 F C X NTG .EO • 1 1 PPL E>PPL-BF PL US 
IFI INTG.EO.l IGPIE-GPL 
IF|PPLAG.tT«600. I PPL6-PPL-BFPLUS 
IF<PPLAG.LT«400 « IGPLEpGPL 
IFIPPLAG.LT.AOO.IGO TO 170 
IFINARRER.EQ.IIGC TO 170 
0IR«1.0 

IFMPPL-BFPUIS) .GT.PPUlDlR-0.3 

PPLE-PPL-BFP LUS- C PPL-BFPLUS-PPLE I ♦EXP <-4 RHH»OX*UT AUG ) / 
IfVISU^PPLAG^OIRI ) 

GPLE-CPL-f GPL-CPLE )*EXPI -( RHWAOX^UTAUGl/ 

1(V1SW«PPLAG) ) 

170 CONTINUE 

....THE FOLLOWING ARE ENPIRICAL CORRELATIONS FOR THE DAMPING TERM 
....IN THE NfXING-LENGTH EXPRESSION. 

AC*7.l 
BC-6.25 
CC-IO.O 

IF(PPLE.GT.0.)BC«2.9 
IF<PPLE.GT.0«ICC«0« 

IF4GPLE.lt. O.IAC -9.0 

APL*APLO/IACS<GPLE^BC«IPPLE/Il«^CC^GPLEn I 
BPL-BPLO/f ACS<GPLE»eC*(PPLE/<l.^CC*GPL£l II ♦!.) 
IFCAPL.LT.-.001IAPL«1000. 

IF ( BPL. LT.-« 001 ) BPL- 1000* 

IF(INTG.E0.1.GR.REN.GT.2.AR£TRANIG0 to I8J 
C.....THE FOLLOWING IS A GINNICX TU SIMULATE A GRADUAL TRANSITION. 
IF(KD.LE.1.AND.NCCE.EQ.2IAPL-APL^I300.>APLIA(1.-SIN{ 1.57 
!♦ { REN-RETRAN I /RE TRAN I !♦♦ 2 


WALL 1220 
WALL 1230 
WALL 12 AO 
WALL 1250 
WALL 1260 
NALL 1270 
NALL 1280 
NALL 1290 
NALL 1300 
NALL 1310 
NALL 1320 
NALL 1330 
NALL 1360 

NALL 1350 

WALL 1360 
WALL 1370 
NALL 1 380 
WALL 1390 
NALL 1600 
WALL 1610 
NALL 1620 
NALL 1630 
NALL 1660 
NALL 1650 
NALL 1660 
NALL 1670 
NALL 1680 
NALL 1690 
NALL 1500 
WALL 1510 
NALL 1520 
NALL 1530 
WALL 1560 
NALL 1550 
NALL 1560 
WALH570 
WALL 1580 
WALL 1590 
WALL 1600 
WALL 1610 
NALL1620 
WALLI630 
WALL 1660 
WALL 1650 
NALL 1660 
NALL 1670 
WALL 1680 
WALL 1690 
WALL 1700 
WALL 1710 
WALL 1720 
WALL 1730 
NALL 1760 
WALL 1750 
NALL 1760 
NALL 1770 
NALL 1760 
WALL 1790 
NALL 1800 
WALLIBIO 
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IFIKO.GE.2.AND.MOOE.EQ.2IBPL-BPi.»(400.-BPLl*II.-SIN(1.57 
l*<REH>RETRANI/RETRANt l**2 

SECTION FOUR * 

180 IFIREU.lt. 4. .AND. 1NTG*EQ. 221 WRITE (6 tOOOl 
IFIREW.LT.4. .ARO.INTG»E0.92)URlTE(6t900l 
900 FORNATI/* THE PROGRAM IS BYPASSING THE UALL FUNCTION. AT LEAST 
ITHtS INTEGRATION.'/} 

1F(REW.LT.4. IGO TO 290 

SECTION FIVE ■ 

C THIS IS THE eEGlNMNG OF A LOOP IN WHICH THE NOHENTUH 

C.....ANO ANY NUMBER OF DIFFUSION COUETTE FLOW ORDINARY DIFFERENTIAL 
C..... EQUATIONS ARE SOLVED. 

IF(INTG.EQ.22.0R.1NT&.EQ.92)UR1TEI6,910) 

910 FORNATf/' THE PROGRAM IS EMPLOYING THE MALL FUNCTION, AT LEAST 
ITHIS INTEGRATION. '/I 
YPL-0.0 

0VPL*0.1*SQRT(REV} 

IF fOYPL.GT. 0.251 OYPL-0.25 

UPL-0.0 

OUOY-1. 

A2-0.0 

IFINPH.lt. IIGO TC 200 
00 190 J-1,NPK 
HPS« Jl-0.0 
190 DHVfJ)*PRMUI 
200 KCHECK-0 

210 IFIYPL.GT,2.5)0YPL«YPL/10. 

220 TPLUS*! 1.0»GPL*I UPL»OUDY*OYPL/2.l«^iPPL-BFPLUSI*IYPL«^DYPL/2.1- 
HPPL-BFPLUS)*CF2AA2/RHGI 
IFITPLUS.lt. 0.01 TPLUS >0.0 
IFITPLUS.LT.0.ULTPL>1 
1FCTPLUS.lt. 0. II LSUB-2 
RR-l.»ICRHI/RHUI-l.l*CiUPL*UTAUU/UII 
IFCRR.LE.O. IRR-1. 

VR«l.*(CVISl/VISSI-l.)«CUPLPUrAUW/Ull 

IFIVR.LE.O.IVR-l. 

IFCRD.GT.DGO TO 230 

YLOAP-C YPL*D YPL/2 . I /APL/ ( VR/SQRT IRR * I 
1F(YL0AP.GT.10.>EE-1. 

IFCYLOAP.GT.IO.IGC TO 240 
EE«1.-1./EXPCVL0AP> 

GO TO 240 

230 EE»IYPL*0YPL/2.)/8PL/IVR/SQRTCRRI i 
1FIEE.GT.1.)EE«1. 

240 0D»1.*4.4TPLLS*ARM*AKK*EE*EE*( YPL*DYPL/2.I *1 YPL*0YPL/2. !♦ 
ICRR/CVRPVR) ) 

0U0Y>(2.*TPLLS/< l.^SQRTC Wm/VR 
UPL»UPL*0U0Y*0YPL 

DI2>RR*RHW*. 5*C CUPL-OUOyDYPLI^CUPL-OUOYPOYPLl ♦UPL*UPL}*0YPL 
A2>0I2«^A2 

IFINE0.EQ.1I6C TC 260 

EOR-(RR/VRI*AXK*AMIC*( YPL«-DYPL/2.l*IYPL*DYPL/2. I*EE*EE*0U0Y 

EORT-FOR^l.O __ 

DC 250 J>1,NPH 

PRR«1.*MPRI U)/PRUI J1 1-1. I*IUPL*UTAJW/UI1 

the following is THE FREE CONSTANT IN THE TURBULENT PRANOTL 

number equation, experience may SUGGEST a DIFFERENT VALUE. 

CT « 0.2 
PRTJ-PRTUI 

PETC>EDR*CT*PRR*PRW( Jl 


AT 


WALL 1B20 
WALL 1830 

WALL1B40 

WALL1B50 
WALL 1860 
AT WALL1B70 
WALLIBBO 
UALL1B90 

MALL 1900 

UALL 1910 
WALL 1920 
HALL 1930 
WALL 1940 
WALL 1950 
WALL 1960 
WALL 1970 
WALL 1980 
WALL 1990 
HALL 2000 
WALL 2010 
WALL 2020 
WALL 2030 
WALL 2040 
wall 2050 
WALL 2060 
WALL 2070 
WALL 2080 
UALL 2090 
WALL 2100 
WALL 2110 
HALL 2 120 
WALL 2130 
WALL 2140 
WALL 2 150 
WALL2150 
WALL 2170 
WALL 2 180 
UALL 2190 
UALL 2200 
WALL 2210 
HALL 2220 
HALL 2230 
WALL 2240 
WALL 2250 
WALL 2 260 
WALL 2270 
WALL2280 
WALL 2290 
HALL 2300 
HALL 2310 
HALL 2320 
WALL 2330 
WALL 2340 
WALL 2350 
WALL 2360 
WALL 2370 
WALL 2380 
WALL 2390 
WALL 2400 
UALL 2410 



IF(P€TC.LT..001I PETC*»OOi 

IF(PETC«GT, 100««CP#M00E.Ea«I)G0 TO 243 

ALPHA*SOPTU«/PPTj| 

AOP-ALPHi/PETC 

1F<A0P.GT.10.IA0P«10» 

PRTJ«l./Cl»/(2««PPTj|^ALP-IAPPETC-PETC^PErC*< 1,-EXPC-AQP I ) ) 

IF <K3.EQ.3,0R. SOURCE! 4)*EQ*2IPRTj*PKf(J| 

245 PREFW«EORT/U«/<FRR4PRm( jn«^EOR/PRT J) 

OHY( JI«(PREFb/fECRTAVRI)*( l.«-GPL*4HPS (J )*DHr ( J )*OyPL/2* ) •^S4C5* 
1YPL4C4*UPL*YPL |4C3* 

2IPREFW-I«l*IUPL-OUOY*OYPL/2.) ADUDY 
HP$( J)«HPS( J l^OHY! JI«OYPL 
250 CONTINUE 
260 YPL-VPtAOYPL 
REL-UPL6YPL 

IF4INTG.EQ.IIG0 TC 270 
IF f YPL. 6T. YPRAX ) L SU6*2 
1FCLSUB.EQ.2) GO TO 340 
270 IF4KCHECK.E0.il GC TO 280 

C.«.«.AT THIS POINT THE PRODUCT UPlAypt IS CQNPAREO TO U*Y*RHO/mu AT 

C JOIN-POINT IN THE MAIN PROGRAM GRID. 

IFfREL.LT.REIilGO TO 210 
280 ERR>REL-REW 
AERR^ABSCERRI 
ER2«AERR/REH 

IF(ER2.LT.0.01IGQ TO 300 
KCHECK»l 

IF4ERR.LT.O.0lOYPL»ABS(OYPL/2.O) 
1F4ERR.GT.O.OIOYPI»-ABS(DYPL/2.0J 
GO TO 220 

C SECTION SIX - 

C.....TH1S SECTION IS USED IF THE NUMERICAL INTEGRATION 
C.....OF THE COUETTE FtCW EQUATIONS IS BYPASSED 
200 YPL»SQRT<REN) 

YPL«SORTCABS 4REW/I1. A4PPt-BFPLUSI*YPL/2.^GPLAYPL/2«n I 
YPL-SORT (ABS(REM/<1.^(PPL-BFPLUSIAYPL/2.<^SPLAYPL/2.) ) > 
UPL*REM/YPL 

TPLUS«UaGPLAUPLaCPPL-8FPLUS)AYPL 

IF(TPLUS.LT.0.0ITPLUS>0.3 

IFCTPLUS.LT.O.IILTPL*! 

IF|TPtUS.LT.0.msUB«2 

OUDY«TPLUS 

C SECTION SEVEN - 

C NALL SHEAR STRESS AND FRICTION FACTOR ARE COMPUTEO HERE 

300 IF(YPL.LT.YPPlN.ANC«MaOE.EQ.2)LSUd»l 
1F{YPL.GT.YPPAX)LSUB>2 
IF4LSUB.NE.2ICLOCFX-DPOX 
BETA-DU0Y6YPL/UPL 

C.....THE FOLLOMIHG IS AN AJ^PROXINATE CORRECTION FOR USE 
C.....OF PLANE NALL FUNCTION EQUATIONS FOR AXI-SYMHETR IC PROBLEMS 
RA0RAT«IRINP2l4R4NPin/(2. ARCMP3I | 

IF <KIN.EQ.1I RA£RAT«iRI2l AR43))/<2.AR(in 
TAUN*ABSIRA0RATARHH*UJ4 iU 1/ fUPLAUPLAGC I ) 

TAU>TAUNPTPLtS^GC 
IFCUGG.lt. 0.00 II GO TO 310 
CF2-GCAI7AUN/ IRHG*UGG*UGGI 
310 CONTINUE 

IFCNEO.EQ.ilGO TC 340 

C..... 

DO 330 J«l«NPH 


WALL 2420 
WALL2430 
WALL 2440 
WALL 2450 
WALL 2460 
WALL 2470 
WALL 2480 
WALL 2490 
WALL 2500 
WALL2510 
WALL 2520 
WALL 2530 
WALL 2540 
WALL 2550 
WALL 2560 
WALL 2570 
WALL 2590 
WALL2620 
WALL2630 
THEWALL 2640 
WALL 2650 
WALL 2660 
WALL 2670 
WALL 2680 
WALL 2690 
WALL 2700 
WALL 2710 
WALL 2720 
WALL 2730 
WALL 2740 

WALL 2750 

WALL 2760 
WALL 2 770 
WALL 2780 
WALL 2790 
WALL 2800 
WALL 2810 
WALL 2820 
WALL 2830 
WALL 2840 
WALL 2850 
WALL 2860 

WALL 2870 

WALL 2880 
WALL 2890 
WALL 2900 
WALL 2910 
WALL 2920 
WALL 2921 
WALL 2922 
WALL 2923 
WALL 2924 
WALL 2930 
WALL 2940 
WALL 2950 
NALL 2960 
WALL 2970 
WALL 2980 
WALL 2990 
WALL 3000 
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IF CREW.GE.4.1 GC TO 320 SECTION EIGHT — 

....THIS SECTION IS tSEO IF THE NUMERICAL INTEGRATION 
....OF THE COUETTE FLCH EQUATIONS IS BYPASSED 
HPSI J l-PRN U 1*1 YPL*GPL*YPL*YPL/2. 1 
DHYU)-PRM( J»*fl.*GPL*HPSI Jll 

prefm>pru(J) section nine 

....HALL HEAT TRANSFER AND STANTON NUMBER ARE COMPUTED HERE 
320 GAMAU)*OHYUI*YFL/HPS<J) 

QHF( J )«RA0RAT*RHH*UI / (UPL*HPS( J ) ) 

IFISOURCEIJI .EQ.21GAMAUI-0.0 

IF I SOURCE tJ» .EQ. 2.AND.M0DE .EQ.21FH Jl ■( AKK*AKK*EE*BETA*OI /AQ l**2 

IF< SOURCE! J) .EQ. 2 )GO TO 328 

IFCINDI ( J).EQ.l.CR.INOE(JI .EQ.1I60 TO 323 

IFIKEX.EO.UCC TO 322 

F{J»1I-(FI UI»AJl(Jt/QHF(J »I/U.^AH1/QHFU)I 
HWt JI>F(J,n 
OW(J)>Ajn JI-AMIAHUIJ) 

IF(FLUID.EQ.2ICALL PROP2<ltFUin.T(Ll,VlSCa(L>.PRIJtll .RHOm I 
....IF VARIABLE PROPERTY ROUTINE OTHER THAN 2 IS USED, CHANGE THIS 
....CALL AS APPROPRIITE. ALSO AFTER STATEMENT 325 
GO TO 326 

322 FIJ.NP3I>IF1 (J)-AJEU)/QHFUn/ll.-ANE/OriFU) I 
HW(JI-FIJ,NP3I 
QWI J»— AJE(JMAME*HW(J1 

IFIF*.UIO.EQ.2ICALL PROP2 (NP3.F I J ,NP3I .TINPai .V1SCOINP3) .PRUtNP3l, 
IRHO(NP3>l 
GO TO 326 

325 CONTINUE 

OUU)«ONF( J)•(HU<JI-F^I(Jn 

326 IF(ABS(HG(J)-HWIJl).LT.O.OOOOai. OR. UG6 .lt. .001IST(J)«0.0 

IFIABSIHGI jn.LT. 0.000001. OR.UGC.LT..aailGO TO 328 

STU>*QUU)/(RHG*UGG*(HH( J)-HGIJ) II 
IF(KEX.E0.1.AN0.1NDE(J).EQ.ll0H(J)>-OH(J) 

328 lF(KIN.EQ.ltPREFU.2)«PREFM 
IFIKEX.EQ.DPREF ( J.NPil-PREFM 
330 CONTINUE 

SECTION TEN 

360 ICSTART»KSTART*1 

IFIINTG.E0.1.ANO.KSTART.LT.41GO TO 40 
MARKER-0 

IFILSUB.GT.OlMARKER-l 
IF aSUB.EO.O) RETURN 


....LANSUB ROUTINE 

....IF LSUB EQUALS 1. (SEE CONDITIONS IN NAIM PROGRAHI. 

....THIS ROUTINE MAS AS IIS FUNCTION THE DELETION OF THE FIRST 
....GRID LINE NEAREST THE HALL. IN EFFECT IT COMBINES THE 
....FIRST THO spaces AND REDUCES THE NUMBER OF SPACES. M. BY ONE. 
....ALTERNATIVELY. IF LSUB EQUALS 2. IT INSERTS ANOTHER GRID 
....POINT BETWEEN I AND 3. 

INTGE-INTG-l 

HRITE(6.430) 

930 FORMAT! /• ROUTINE LAMSUB HAS BEEN CALLED* 1 
IFILSUB.GT.ll 60 TO 340 

NRITE!6«920)N»INTGE 

NP1-N*1 

NP2«N»2 


HALL 3010 
HALL 3020 
HALL3030 
HALL 3040 
HALL 3050 
HALL 3060 
HALL 3070 
HALL 3080 
HALL 3090 
UALL3100 
HALL 3110 
WALL 3120 
HALL 3130 
HALL 3 140 
HALL 3150 
HALL 3160 
HALL 3170 
HALL 3 180 
MALL 3190 
HALL 3200 
wall 3210 
HALL 3220 
WALL 3230 
HALL 3240 
HALL 3250 
HALL 3260 
MALL 3270 
WALL 3280 
HALL 3290 
HALL 3300 
HALL3310 
WALL 3320 
HALL 3330 
HALL 3340 
HALL 3350 
HALL 3360 
WALL 3370 
HALL 3380 
MALL 3390 
HALL 3400 
WALL 3410 
MALL 3420 
HALL 3430 
HALL 3440 
MALL 3450 
HALL 3460 
HALL 3470 
hall 3480 
HALL 3490 
hall 3500 
WALL 3510 
HALL 3520 
WALL 3530 
HALL 3540 
WALL 3550 
WALL 3560 
WALL 3570 
HALL 3560 
HALL 3590 
HALL 3600 
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IFfKIN.EOaiGO TO 360 
U(NP3I«UIN^4I 
U<NP2l«UINOI 
Y<NP3)«VfN^4l 
VINP2I>Y<N»31 
IFINEO.EO.llOO TC 460 
00 350 J«lfNPH 
F(J«NP3I»FCJ9N^4» 

350 F<J9NP2)»F<J,N^3I 
GO TO 460 
360 CONTINUE 

DO 360 I»3fNP3 
unique un 

Ydl-YCI^l) 

IF(NEQ.EQ*I)6G TO 380 
DO 370 J«lfNPH 
370 FUfn»FIJ,I«l» 

380 CONTINUE 
GO TO 460 
3<50 N-N^l 

WPf TEI69920llirtINTGE 

C CHANGE IF PRCGAAP OINENSIONING IS CHANGED. 

IFIN«GT.50)GC to 470 

HP1»N^I 

NP2«N^2 

NP3«N*3 

IFfKiN.EO.llGO TC 420 
VCNP3J*YINP2I. 

Y(NP2)»YCNPll 

U(NP3l>UfNP2l 

U(NP2»«U<NP1) 

YI-0.5*(Y(NP2)«Y(MI 

YCNP|I-0*5«IY(NMY1» 

U(NPl)*0«5^(UfNMtn 
IFfNEQ.EQ.IJGO TO 410 
DO 400 J«1»NPH 
Ff J«NP3I-FI J«NP2) 

FU9NP2I«F(J»NP1) 

400 FO«NPtl«0.56fFfJ9N)^FIUI J 
410 CONTINUE 
GO TO 455 
420 00 440 P>1«N 
I»NP3^ll-KJ 
U(n«U(I-U 
Ym»Yf I-ll 

IF(NE0*EQ.1> GO TO 440 
00 430 J«lfNPH 
430 FU«II-F(JtI*il 
440 CONTINUE 

YI«0.56(YI 2UYmi 
Yf3»«0.5*(Yl4V<3n 
UC3I«0« 56(Ul4L(3n 
IF(NE0.E0.1I go TO 455 
DO 450 jr»I»NPH 

450 FUf3l«0«5«<FI4JJ*FCJ.3ll 
455 ENUINPlI-ENUiNI 
eF(NP3l-BF(NP2l 
VISC0CNP3»«VISC0<NP21 
RH0INP3)»ftH0lfiP2) 


WALL 3610 
WALL 3620 
WALL 3630 
WALL 3640 
WALL 3650 
WALL 3660 
WALL 3670 
WALL 3680 
WALL 3690 
WALL 3700 
WALL 3710 
WALL 3720 
WALL 3730 
WALL 3740 
WALL3750 
WALL 3760 
WALL 3770 
WALL3780 
WALL 3790 
WALL 3800 
WALL 3810 
WALL 3820 
3830 
WALL 3040 
WALL 3850 
WALL 3860 
WALL 3870 
WALL 3 880 
WALL 38^ 
WALL 3900 
WALL 3910 
WALL 3920 
WALL 3930 
WALL 3940 
WALL 3950 
WALL 3960 
WALL 3970 
WALL 3980 
WALL 3990 
WALL4000 
WALL 4010 
WALL 4020 
WALL 4030 
WALL 4040 
WALL 4050 
WALL 4060 
WALL 4070 
WALL 4080 
WALL4090 
WALL4100 
WALL 4 I 10 
WALL4120 
WALL 4 130 
WALL 4 140 
WALL4I50 
WALL 4160 
WALL 4 1 70 
WALL 4 180 
WALL4190 
WALL4200 
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TINP3I-1. 

IF INPH.EO.O) CO TO 460 
DO 458 J-l.NPH 
458 PR4JtNP3)-PR(J»NP2l 
460 OMTINUE 

IFfLTPL.EQ.l)MRITE(6«62) 

RETURN 

470 MUTE (6»940} 

LVAR«6 

62 FORMAT! • LSU8-2 MAS INVOKED BECAUSE SHEAR STRESS RATIO*/ 

1* IN MALL FUNCTICN GOT LESS THAN O.lt OUE PROBABLY*/ 

2* TO EXCESSIVE PRESSURE GRADIENT OR SUCTION*/! 

940 FORMAT!//* PROGRAM TERMINATED BECAUSE N HAS EXCEEDED THE*/ 

1* NUMBER OF FLOM TUBES FOR MHICH THE PROGRAM IS DI iCNSi ONED* / / ) 
920 FORMAT (IX, I 7PN HAS SHIFTED TO ,I2,1X,9HAT INTG »,I4/I 
RETURN 
END 


MALL 4210 
MALL 4220 
MALL 4230 
NALL 4240 
MALL 4250 
NALL 4 260 
MALL 4270 
HALL4280 
MALL 4290 
HALL 4300 
HALL4310 
NALL4320 
MALL 4330 
HALL4340 
MALL 4 350 
HALL 4360 
MALL 4370 


SUBROUTINE AUX 


AUXOOOOO 

AUXOOOlO 

AUX00020 

AUX00030 

AUX00040 

AUX00050 


INTEG ER GEOM , F LU 1 0 ,S OURC c ! 51 , S P AC E, BOOFOR, OU TP UT , T VPBC 
COMMON/GEN/PEl ,AMI ,AME,OPO X,XJ , XD.XL, OX, I NTG ,CSALF A,TYPBC ( 5 » , 

1P00E,PRT!5! ,PRE,NXBC,X!100 ),RH!100) ,F J! 5, 100 1 , GC ,C J, AM! 100) ,PPO, 

2UG! 1001, PO, SOURCE, RETRAN.NUMRJN, SPACE, RHO,PPLAG,OUTPUT, DELTA X,GV 
3/E/N, NP1,NP2,NP3,NEQ,NPH, HEX, KIN,KAS£,KRAD, GEOM, FLUID, BOOFOR, TPMTNAUX00060 
4/G6/8ETA,GAMA(5) ,A JI ( 5) , AJE ( 51 . INOI (S!,INDE!5) ,TAU,0HF!5I AUX00070 

5/V/U!54) ,F(5,54) ,R!54),ON! 54!,Y!54) ,JGU,UG0,UI ,FI ! 51 ,FMEAN,TAUW AUX00080 
6/M/SCI54J, AU(54I ,BUI54»,CU4 54I ,A! 5, 54 ) ,B! 5 ,541 ,C ( 5 ,541 , SU ( 5, 54 » , SO AUX00090 

7/L/AK,ALMG,ALMGG,FRA,APL,dPL,AQ,BQ,£MU!54!,PREF(5,541,AUXMl AUXOOlOO 

8/Ll/YL, UMAX, UMIN,FR, YIP, TEN, EHFRA, KENT, AUXM2 AUXOOllO 

9/P/RH0(54!,VISC0!54! ,PR(5,54!,RH0C, VlSCOC,PRC( 51 ,T !54l ,RHOM,BF (54! AUX00120 
l/0/H,REM,CF2,STI5I ,LSUB ,LVAR,CAV ,R£H, PPL,GPL ,0M!5 I ,KD AUX00130 

2/CN/AXX,BXX,CXX,C>X,EAX,Kl,K2,K3,SP!54l ,AUXi ( 100! , AUX2! 1001, VP MAX AUX00140 
3/A00/RB0H(54) ,CMC!54I ,ROMO ( 541 , I TKc 
DIMENSION DV!S4I 


ITKE-1 

UCG«U(1)»FL0AT(KEX-1I*!U!NP3!-UUI! 

RHG-RHO ! 1 1 »F LOAT ( K EX>1 ) * ( R HO! nP3 ) -RHO ! 1 1 ! 

AMM— AME4FL0AT!KEX-U*(ANE»ANI I 

RMM-RH01NP3I*FL0AT(KEX-11* !RHa!l!-AH0!NP3l i 

V!SM»VISC0(NP31*-FL0AT!KEX-1I*!VISC0!U-VISC0!NP3U 

UTAU*SORTIGC*TAUh/RHHi 

YPUT«RHM*UTAU/VISM 

IF !INTG.6T. 1) GC TO 10 

MOUNT- 0 

IF (MOOE.EO.2i KCLNT-1 
1 RAVG«R!li 
RHOAV»RHO!li 
V1SAV-VISC0( II 
KTURB-O 

IF !NPH.EQ.O.AND.POOE.E0.2.ANO.K2.ME.2!HR1Ti:(6,6I 
IFIK2.EQ.2.AN0.MC0E.EQ.2)MRITE(6,9I 
IF INPH.EO.O.AND.PODE^EO. 2. ANO.KO.lt. 2! 

IF INPH.EO.O.ANO.MCOE.E0.2.AND.KO.GE.2! 

IF (NPH.EO.OI CO TC 10 
JTKE-0 

DO 5 J=l,NPH 

IF (S0URCE!JI.EQ.2I JTKE-J 

,, 


MRIT£!6,7) 

MR1T£(6,AI 


AUX00159 

AUX00160 

AUX00170 

AUX00175 

AUX00180 

AUX00190 

AUX00200 

AUX00210 

AUX00220 

AUX00230 

AUX00240 

AUX00250 

AUX00260 

AUX00270 

AUX00280 

AUX00290 

AUX00300 

AUX00310 

AUX00320 

4UX00330 

AUX00340 

AUX003S0 

AUX00360 

AUX00370 

AUX00380 

AUX00390 
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If U«EQ«JTKE.ANC.N00E.EQ.2I MHlTc C6»4I 
If U.E0,jTKE.AND«H00E*c;i.2.A^0,K2.fc;^.2l rikITE (6,31 

3 fOAMATC//« <2 SHCULO NOT BE SET ciJUAL TO 2 •//! 

4 fORMATl* fLOW IS TURBULENT AN3 PROGRAM IS USING TURBULENT* 

!/• KINETIC-ENERGY TO EVALUATE EDDY VISCOSITY, EXCEPT IN THE*/ 

!• WALL FUNCTION WHERE MIXl NG-LENGTH 1$ USED. NOTE THAT THE*/ 

1* PRINTED-OUT VALUES OF TKE HAVE hQ MEANING IN THE NEAR-WALL*/ 

I* REGION, I.E.f FCR Y»- LESS HAN 64* , OR 2WA4-,*/J 

5 IF (SOURCE! JI.EQ, 2) KTUR6«I 
IF (MOOE.EQ.U GC TO 10 

IF (KTURe.EO.O,ANC«K2»NE«2 IWRITE (6,61 
IF (K0.LT.2) WRITE 16,71 
IF (K0«GE.2) WRITE (6,61 

6 FORMAT! • FLOW IS TURBULENT ANO PROGRAM IS USING THE ®RANDTL HIX- 
i/* ihg-length hypothesis to evaluate EODY-VI SCOSITY* /I 

7 FORMAT! • THE VAN DRIEST SCHEME IS 6EING USEO TO EVALUATE* 

I/* THE MIXING-LENGTH OR LENGTH-SCALE DAMPING NEAR THE WALL.*/I 

8 FORMAT! • THE EVANS SCHEME IS BEING USEO TO EVALUATE THE* 

I/* mixing-length OR LENGTH-SCALE DAMPING NEAR THE WALL.*/! 

9 FORMAT!* FLOW IS TURBULENT AND PROGRAM IS USING THE CONSTANT*/ 

1* EDDY OIFFUSIVITY OPTION IN THE OUTER REGION*/! 

C 

10 00 100 1>2,NP1 

YM>0.56!Y(HIMY! in 
IF !KEX,€Q.l! YM»V<NP3I-YM 
IF (FLUID. EO. II GC TO 12 
RA VG>0. 5P(R ( I! »R ! HI I ) 

RH0AV*0.5P!RH0<! HRH0(I4*1I } 

VISAV*0.54! VISC0n)4*Vl5C0C HIM 
12 EMUT-0. 

CVdl^i. 

IF (MOOE.EO,!! GC TO 50 
K0UNT«K0UNT^1 
IF (KOUNT.EO.l! GC TO I 
IF (KASE.EQ.2I GO TO 25 

c — £QQy viscosity damping term — 

C.....VAN DRIEST DAMPING FUNCTION 

C APL, BPL COMPUTED IN WALL 

IF ( FLUIO.NE .1) VPUT»SQRT( RHOAVPTAUWPGCI/VISAV 

YLOC-YMPYPUT 

IF (K0.GT.1I GO TC 15 

IF (YL0C/APL.^#10.) GO TO 25 

OV 1 1 1 ■ 1 .-1 . /E XP ( YLOC / APL I 

GO TO 22 

C EVANS DAMPING FUNCTION 

15 OVI n*YLOC/BPL 
20 IF!DV! n.GT.l.l OV(ll»l. 

C LOWER LIMIT VALUE DAMPING TERM 

22 IF (OVdI.LT.O.OOOll OVdHU.OOOl 
25 CONTINUE 

C— — PRANOTL MIXING LENGTH — 

IF d.GT.2! GO TO 30 
IF !GE0M.EQ.4.0R.GEbM.EQ.5l GO TO iU 
IF CREM.LE.lb0..0R,K2«EQ«3l GO TO 30 

C EMPIRICAL CORRELATION FOR ALMG FOR WAU FLOWS 

C.....THIS CORRELATION THEN OVERRIDES THE INPUT AlMGG 
AMOR«AME/RHOdl 

IF !KlN«EQ#il AMQR-ANI/RH0CNP3I 

ALMG*=ALMGG*2.94 2/REM»*0*12 5*n .-67. 5*AM0R/UGU) 

IF f ALMG.LT.ALNGGI ALMG-ALMGG 


AUX004U0 
AUX00410 
AUX00420 
AUX00430 
AUX00440 
AUX00450 
AUX00460 
AUX00470 
AUX004R0 
AUX00490 
AUX00500 
AUX00510 
AUX00520 
* AUX00530 
AUX00540 
AUX0D550 
AUX00560 
AUX00570 
AUX00580 
AUX00590 
AUXOObOa 
AUX00610 
AUX00620 
AUX00630 
4UX00640 
AUX00650 
AUX00660 
AUX00670 
AUX00660 
AUX00690 
AUX00700 
AUX00710 
AUX00720 
AUX00730 
AUX00740 
— AUX00750 
AUX00760 
AUX00770 
AUX00780 
AUX00790 
AUX00800 
AUXOOBIO 
AUX00820 
AUX00630 
AUX00840 
AUX00850 
AUX00860 
AUX00870 
AUXOOBRO 
AUX00890 
-AUX00900 
AUX 00910 
AUX00920 
AUX00930 
AUX00940 
AUX00950 
AUX00960 
AUX00970 
AUX00980 
AUX00990 
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no on 


c 


c 


c 


c- 


c- 


.. .COMPUTE MKIHG LEMGTH 
30 AL*AiMG*YL 

IF (KASE.EQ. 1. AND.YM.lt. AL/AKI AL«AK*YM 

IFIKASE.EQ.1.AN0.K2.EQ.2IAL«A<*YM 

IF fKTURB.EQ.l.ANC.KASE.EQ.2l GO TO ^0 

IFIKASE.EQ.2 )C0 TC 35 

YTME-YUIAVPLT 

IF IKEX.E0.1»YTKE-IY(ii(P 3)-V(I*H l*YPUT 

IFIKTURB.EQ.1.AND.KD.L£.I.AND.YTKE.CE.2.*APL)C0 to AO 
IFIKTURB.EO.I.AND.KD.GE.2.ANO.VTKE.6E.BPLIGO TO AO , 

35 emut*=rhoav*al*al*abs null *^11-0(1 M/cYnn»-Ym»»*ovm*ov<n 

IF(K2.NE.2.0R.KASE.E0.2)GO TO 36 

emutc*< AQ*REP**BG i*visav 
ifiemut.gt.eputciemut-ehutc 

IF«YM.GT.O.A*YL)EMUT-EMUTC 
3A IFIKTURB.NE. 1 IGO 70 50 
...ADJUSTMENT OF TKE IN NEAA-NALL REGION 

FJJAVE»< (AK*EMLT »/(A0*RH0AV*ALP0VlI n 1**2 

FUTKEf I l»FJJAVE 

ITKE»I 

IF (KEX.EQ. I.ANO.ITKE.EQ.I i lTKE>i 
GO TO 50 

....COMPUTE EOOY VISCOSITY USING TURBULENT KINETIC EMERGE EON 

AO FJJAVE»ABSI0.5*IF(JTK£,I«-1I*F( jTKE.ini 
EMUT»AO*RHOAV*AL*OV( I »*SORT(fJJAVEI/AK 

EFFECTIVE VISCOSITY 


50 EMun )-EMUT*VlSAV 

IF 4NPH.E0.0.AN0.KASE.EU.1 
HY(I*1I-YII m/IGCPTAUN) 

IF INPH.EQ.OI GO TO 100 


) Til l-AdSIEHU(I )P(U<I»1I-UI I ) )/ 


— TURBULENT PlANDTL/SCHMIOT NUMBER 


EDR-EMUT/VISAV 
00 90 J-lfNPF 
IF <MODE.EO.li GC TO 80 
JPMI«1 

IF ISOURCEI JI.GT.Oi JPH1-S0URCE< Jl 
GO TO <62.68f62t62lt JPHl 


....STAGNATION ENERGY EQNt TURBULENT PR ANOTL NUMBER 
62 PRTJ-PRTIJI 

IF <KASE.EQ.2.0R.R3.EQ.3I GO TO TO 
....THE FOLLOWING IS THE FREE CONSTANT IN THE TURBULENT PRANDTL 
....NUMBER EQUATION. EXPER1EN:E MAY SUGGEST A DIFFERENT VALUE. 

CT - 0.2 

PETC»EOR*CT*(PR( J.I*ll»PRI Jtll 1/2. 

IFIPETC.LT..C01)PETC«.00l 
IFIPETC.GT.lOO.tCO TO 69 
ALPHA-SQRTd./PRTJl 
AO P« ALPHA/ PETC 

IF<A0P.GT.10. IA0P*10. . 

PRTJ>1 . / 1 1 . /< 2 .APRTJ ) ♦ALPM A*PBTC-P£TC*P£TCPI l.-EXP <-AOP 1 1 1 

GO TO 69 

....TURBULENT KINETIC ENERGY EQN. TURB PRANDTL NUMBER 
68 PRTJ-PRT<J» EFFECIVE PRANDTL /SCHMI DT NUMBER 


69 lFIKlN.EQ.l.AND.l.EQ.2iC0 TO 90 

IFIKEX.EQ.I.AN0.1.EQ.NPU50 TO 90 ............ 

70 PREFIJ,! l•<1.0♦ECR»/IE0R/PRTJ♦l.0/la.5♦lPRU.l♦lJ♦^PR^ J. II ill 

GO TO 90 

....LAMINAR EFFECTIVE PRANDTL NUMBER 


AUXOIOOO 
AUXOlOlO 
AUX01020 
AUX01030 
AUXOIOAO 
AUX01050 
AUX01502 
AUXO 105A 
AUK01060 
AUX01070 
AUX01080 
AUX01090 
AUXOllOO 
AUXOlllO 
AUXO 1 120 
AUX01130 
AUXOllAO 
AUX01150 
AUX01160 
AUX01161 
AUXO 1162 
AUX01170 
AUXO 11 60 
AUX01190 
AUX01200 

AUX01210 

AUX01220 

AUX01230 

AUX012A0 

AUX01250 

AUX01260 

AUX01270 
AUXO 1280 
AUX01290 
AUXO 1300 
AUX01310 
AUXO 1320 
AUXO 1330 
AUX013A0 
AUXO 13 50 
AUXO 1 360 
AUX01370 
AUXO 1380 
AUXO 1390 
AUXO 1600 
AUXOIAIO 
AUK01A20 
AUX01630 
AUXO 1460 
AUX01650 
AUXO 1660 
AUXO 1670 
AUX01680 
AUXO 1690 

AUX01500 

AUX01510 
AUXO 1520 
AUXO 1530 
AUXO 1560 
AUXO 1550 
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00 PREFIJf I IbQ. 5*(PR< Jy I«lt*-PR{ J, it I 
90 CONTINUE 
100 CONTINUE 

DO 110 I-2.NP1 
RHOAV-(RHOI I |4^RH0(I«11 1/2. 

RAVG«(R(1I«^R(I»1 » 1/2. 

c ADJUSTNENT of emu at 2.5 4 NO N*1.5 

IF U.GT.2) GO TC 110 
IF (KIN.NE.l) GO TO 105 

IF (BETA. LT. 0. 02. CR. BETA. GT. 0.91 GO TO 110 
CMU(2»*TAU*IY(2l*V(3l|/(8ETA*(U4 2l*UI3in 
105 IF (KEX.NE.l) GO TO 110 

IF (BETA. LT. 0.02. OR. BETA. GT. 0.91 GO TO 110 
EMUfNPl l*TAU*( Y{ NP3) -0.5*( Y(NP1I«’Y(NP2) 11/ 
I (BETA*0.5*(U(NP1I ♦U(NP2m 

C COMPUTE SMALL C'S 


110 


115 


120 

125 


SC ( I l*RAVG*RA YG*RH0AVP0. 5* (U(I»l)»U(ill*ENU(Il/(PE I*PEI I 
IF (NEQ.EQ.ll GO TO 300 


DO 200 1-3. NFl 
CO 150 J-1»NPH 
SU(J.n- 0 . 

SO-0. 

IF ( SOURCE (OI.EQ. 01 GO TO 150 
N$0R-50URCE( Jl 

GO TO <115.130«115.1201y NSOR 


SOURCE TERMS 


IF (I.EQ.2I PREF(J,1)-PREF 


• stagnation energy eon source 

( J|2I 


PREFF«(PREF( J,n*PREF(J,I-lll#0.5 

CS-SC(I1*(U( I»1)*U(I«11-U( I1»U(1 llPROMUUl 

CS » CS-SC (I-ll* (L'(1 1*U( 1 )-UU-ll*U(l>ll I *ROHO (I-l I 

CS-d.-l./PREFF )*CS*RB0M(I1 

SUIJ.II - CS/(GC*CJ)»SF(Ii /(CJ-RHOIll 1 

IF (um.LT. 0.00011 GO TO 125 

IF ( SOURCEIJ ).EQ.3I SU( J . 1 1 -SU( J, 1 dAUXM2/ ( A»C( I) *U( 1 1 1 

IF ( SOURCE (JI.EQ .A) SU( J . I 1 -A JXM2/ (RHO( 1 1 «U( 1 >1 

SD-0. 

GO TO 150 


TURBULENT KINETIC ENERGY EQUATION SOURCE 

130 AL-ALMG*YL 

IF {KA$E.EQ.21 GO TO lAO 
YMQ«Y(I1 


IF (KEX.EO.l) VM0>Y(NP31-Y(I 1 
IF (YMO.LT.AL/AKJ AL«AK*YMQ 
lAO 0U200M>.5«( (UldllRUd^lJ-UdJFUdl )*ROMO( II ♦ 

1 (Udl*Ud J-U(l-ll*Ud-ll 1*RDM0(I-11 1 
0V0«.5*(0V(I dCVd'H 1 
FU2>AfiS(F(J.n) 

PR00-AQ*AL*0VQ*SCRT(FJ2)*(RH0dlFR(l I/PE11**2/ (U(I l*AK*A, I* 
1 OU200M**2 

OI5S-BO*AK*FJ2*91.5/(AL*OYO*U( 111 

IF(DISS*CX.GT.FJ2IDISS-FJ2/OX 

SU(J.II«PROO>CISS 

FGT-F(J,NP31 

(F(KIN.E0.2)FGT-F( Jyll 

IF(KlN.E0.3IF6T-0.0 

IF(F(J, I J.LT.FGT) sue Jyll -PROD 

SD-0.0 

GO TO 150 

C ADO other source FUNCTIONS HERE 


AUXOI560 
AUX01570 
AUX01580 
AUX01600 
AUX01610 
AUX01620 
AUX01630 
AUX016A0 
AUX01650 
AUX01660 
AUX01670 
AUX01680 
AUX01690 
AUXO 1700 
AUX01710 
AUX01720 
AUX01730 
AUX017A0 

AIJX017A5 

AUX01750 

AUX01760 

AUX01770 

AUX01780 

AUX01790 

AUX01800 

AUX01810 

AUX01820 

AUX01830 

AUX018AO 

AUX01R50 

AUX01B60 

AUX01870 

AUX01P80 

AUX01890 

AUX01<?00 

AUX01910 

AUX01920 

AUX01930 

AUXO19A0 

AUX01950 
4UX01960 
AUX01970 
AUX01980 
AUX01990 
AUX0200i) 
AUX02010 
AUXO202D 
AUXl' 20?0 
AUXO20A0 
AUX0 205O 
AUX02060 
AUX0207O 
4UX0?0flJ 
AUX02090 
AUX02100 
AUX02110 
AUX02120 
40X0 213.) 
AUX0 2I.A0 
AUX02150 
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o n o n o o o oooo 


....CHANGE •COMPUTED GO TO* STATEMENT TQ INCLOOc AUX02160 

....SOURCE FUNCTICA STATEMENT NUMBERS. LIKEWISE* AUX02170 

....CHANGE TURBULENT PR/SC NUMBER *CONPuTEO GO TO • AUX02I80 

....STATEMENT NUMBERS. AUX02190 

150 CONTINUE AUX02200 

200 CONTINUE AUX02210 

300 CONTINUE AUX02220 

RETURN AUX02230 

END AUX0 22<»0 


SUBROUTINE OUT 


DIMENSION UPUiS(54),YPLUS(5<»l.HP(54l,QRATI5^) 

INTEGER FLAG.PLAG2 

INTEGER GEOM .FLUID, SOURCE! 51 , SPACE. BOOFOR, OUTPUT. TYPBC 
COMMON/GEN/PEI. AMI. AME, DPOX.XJ.XO. XL. OX. I NTG.CSALF A, TYPBC 1 51 , 
lMOOE.PRT(51,PRE,KXBC,xaaO I.RWdOUl .FU( 5. 100 ) . GC ,C J. AM( 1001 .PRO, 
2UG( 100 ) , PO. SOURCE .RETRAN. NUMRUN, SPACE ,RwO, PPLAG.OUTPUT, DE LTAX. GV 
3/E/N,NPl.NP2.NP3.NEQ,NPH.KEX,RlN,XASE,KRAD,GE0M,FLUID.B0DF0R, VPNir 
A/GG/BETA.GAMA(5I ,AJI ( 5) . AJE< 51 , INOl (51.1NDEI5I ,TAU,OWF( 5) 
5/V/UC5A>.F(5,54l ,R15 .ONI 5i) , Y( 541 .UGU.UGD.UI .FI( 51 .FMEAN.TAUW 
7/L/AK.ALMC.ALMGG,FRA.APL.3PL,Ag,B0.ENU(541 ,PREF(5. 54) .AUXNl 
9/P/RM0154) ,VISC0154),PRI5,541,RH0C,VISC0C.PRC1 51.T (54) , RHCM.BF (54 
l/0/H.REM,CF2.ST(5).LSUB.LYAR,CAY,R£H.PPL.GPL,0H<5) .KD 
2/CN/AXX,6XX.CXX.CXX.EXX,Xl ,X2.K3.SP(54) . AJXl ( 1 00 ) . AUX21 100) . YPMAX 


GO TO (100.200.300.400.500.609), OUTPUT 
100 CONTINUE 
CO TO 1000 
200 CONTINUE 


.THIS ROUTINE WORKS PROPERLY ONLY FOR KIN»1. IT IS DESIGNED 
.PRIMARILY FOR EXTERNAL MOMENTUM AND THERMAL BOUNDARY LAYERS. 
.WITH OR WITHOUT THE TURBULENT KINETIC ENERGY EQUATION. TO WORK 
.PROPERLY, IT MUST BE THE LAST EQUATION »OLVEO. 

IF(KIN.NE.I)GC TC 600 
IFdNTG.NE.DGO TC 205 
IF(INTG.EQ.l)KSPACE»SPACE 
IF(KSPACE.EQ.11.CR.KSPACE.EQ.211SPACE>1 
IF(NPH.EC.O) ST(1 )«0.0 
IF(NPH.EQ.O) ST(2 1*0. 

lF(NPH.EQ.l.ANC.SCURCE(l).Ea.2lST(l)>U. 


IF(NPH.E0.1.ANC.SCURCE( 1) .E0.2)REH«U. 
IF(NPH.E0.0)REF*0.0 
IFINPH.EO.OIFII, 1)>0. 

IFdNTG.EQ.I > FLAG>1 
IF( INTG.EC.11FLAG2*! 

205 FAM>AMI/(RH0(NP3)«U(NP3) 1 
STA-ST(l) 

G*IH-1.1/(H*S0RT(CF2I 1 
• BTA— H*REM*CAV/CF2 

IF( SOURCE! 1 ) .EO. 2. AND. NPH.CT.11STA«ST (21 
IFCXD.GE.XLIGC TC 210 
IFdNTG.NE.FLAG) GC TO 278 
210 CONTINUE 

NINTG-INTG-l 

IF( INTG.EO.l.ANO.KSPACE.NE.lIIGO TO <ci5 
IF(INTC.EQ.1IWRITE(6.2821 

IF (INTO. EO. 2. ANO.KSPACE.EQ.il) WRITE (6. 282) 


0UT00320 
CUT00330 
nu'*’00 340 
nUT00350 
CUT00360 
nUT00370 
0UTO03P0 
0UTO0390 
OUT00400 
CIJT00410 
0UT00420 

OUT00440 

"UT00450 

r;UT00460 

?UT00470 

nuTooAeo 
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c 

c 

c 


IF(INTG«E0.2*AfKO«KSPAC£.£0.2ll WRlT6(6r262l 
IFf SPACE.NE.UCO TO 21S 
IF(K$PAC€.EQ.I>GG to 215 
CPL-APL 

IFIKO*GT.llCPl*BPl 

WPITE(6,264)NTNTG»XUtUGUiCAy»FAH»REH.CF2f H»K£H,STA»F( It II tCPL 
IF<KSPACE.EQ.il.ANO.XO.Lr.XU:iO JiJ 279 
|F(IHTG*EQ.FLAG2)G0 TO 215 
lF(KSPACE«EQ«2UAKO.XO*Lr.XLI^G TJ 279 
IFUO«GE.XU UGU»UGO 
215 CONTINUE 

liiaTE<6t2B0l 

KRITE<6«2B2I 

CPL*APL 

IFiKO.GT.llCPL»ePL 

HRITEf6t264INlhTG»XUtUGU»CAY»FAH,ktM,CF2f HtREHtSTAtFUf U »CPL 
IF<KUGTadl WPITE<6«2a6H$P< II fGtdfA 

286 F0RNAmx»23hSPEClAL OUTPUT - SPUI =t E9.3, iX, 6H$P( 2) = tE 9. 3, IX 
K3l*,E9«3tlX,6HSP(41«tE9.3f IXt6H:>P(5l «« £9* 3 t I X 1 2HGep 
2F5«2f lX«5H8EtA«»F5.2i 

208 FORMAT!/, 5Xf6AH I YlU UU> rPLUSd) UPtOS( 

1 HPLUSn IfSX rlOM$QRT(KJ/UGf/l 
IF(NEQ.GT*iUglTE<6t2B8l 
IFCNEQ«EQ.llliRITE(6t290l 

290 FORMAT! /,SX,66F 1 Till UUI YPLUSCII UPLUS! 

\ TAUPLUS f/l 

292 F0RMAT<6X,I2«4Xf F6.6,2X,F7.2t3X,Fd.2f 6X,F5«2f9X,F9.At5X fF7*A, 
I5X,F6.3,2X,F7«3I 

YPUT«UfNP3I^SQRT(CF2*RH0INP3)*RH0(UI/VISC0m 
tPUT«l./(U(NP3l*SCRTICF2ARHO(NP3l/RHOU)n 
1F(NPH.E0«0»GC TC 293 

IF! ABSKFUf l>-F<l,NP3nP$Tmi.lT..0uOliG0 TO 293 
IF !NEO.GT.l.ANO*SOURC£(ll.NE.2IHPUT«SQRnCF2*RHO( 1I/RMOINP3I 
I MFIlf lI-FCl,MP2)l*STan 


VPLUSd I 


UPtOS( 


UPLUS! 


.••••CHANGE MU IF CIMEN5I0NING CHANGED 
293 PU*54 


DO 274 !>1«NP3 
N«I 

YPLUSCI l-Y(I l♦VPl;T 
UPLUS(ll«Un J4UPtT 


CUT0049O 

CUT00500 

nu’*'oo5io 

nUT00520 
CUT00530 
♦AME CUT00540 
CUT00550 
CU^00560 
^UT00S70 
CUT00530 
CUT00590 
nU^00600 
0UT00610 
OUT9062O 
nUT00630 
fAME CUT00640 
nUT00650 
,6HSPCUT00660 
nUT006TO 
OUTOOfcftO 

I I CUT00690 

0UT00700 

CU^00710 

nUT00720 

II CUT00730 
0UT00740 
EUT00760 
nU^00770 
CUT00790 
CU'»'00790 
0UT00800 
OUTOOBIO 

I / 0UT00320 

OUT00830 
0UT00831 
^♦*^^ruT00832 
OUTOO033 
CUT00834 
OUTOO04O 
CUT00850 
nUT00860 
CUTOO07O 


IFd.NE«2IG0 TC 245 
GO TO i24G,225f220t225,22SI»NEQ 
220 IF(S0URCEm.EG«2IG0 TO 235 
IFCSOURCEf2)«NE.2IGO TO 225 
QftAT(MUI>S0RT<ABS(FI(2)n/U(NP3l 
225 1FCS0URCE<II.EQ.2IG0 TO 235 
NPCMU)«0.0 

IF(ABS((F(l,l)-Fn,NP 3 ))*ST(l)).LT. .OOODGO TO 

HP{MUl«CF(ltll-f KIIIPHPUT 
230 FfliMUUFIUi 
GO TO 240 

235 QRArfMUI«SQRT(ABS(Fimil/UCNP3l 
240 ViMU)>0«5^<Yll>^Yl3) I 
U(MUI*U1 

YPLUS(MU)-0^5^4Y!2I^Y43IIPYPUT 

UPLUS4MUI«U18UPUT 

MMU 

245 lFtI«E0^NP2IG0 TO 274 


CUTOO08O 

0UT00890 

OUT00900 

OUT00910 

CMT00920 

OU’^00930 

CUT00940 

0UT00950 

OUT00960 

0UT00970 

CUT00980 

CUT00990 

OUTOIOOO 

CUTOlOlO 

0UT01020 

CUT01030 

0UT01040 

CUT01050 
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n o 


GO TO C250f2S5f265t2SSt255}«NEQ 
250 TAUPL*l-0 

IF(UNE*UANC.P.hE.HUiTAJPt«0.5»iriHi ♦TM-IH 
IF(M«EQ.HU»TAUPL>TAU/lGC»rAUM) 

IFCUE0«NP3)TAUPL«O.O 

WRITE<6«292) P» Y i P 1 9 U(MI » YPLUS CM) »UPLUSCNI ,TAUPL 
GO TO 27A 

255 IF<S0URCEaUEC.2IGQ TO 272 
HPm«0.0 

IF(ABSCCFCl9ll-FCl9NP3)IPSTCI)KLT..;i00i)G0 TO 260 
HP C II* (FUtD-FC 1,IIM»HPUT 
260 WRITE<69292) Ht Y( Ml tUC H) 9 YPLUS ( HI # UPLUS ( S) 
l.HPCHI 
CO TO 274 

265 IFC SCURCECll .EQ.2IG0 TO 272 
If (S0URCEC2) •ME«2IGQ TO 255 
ORATCn*SORTCAeS (FI2« in I/UCNP3) 

HPCI l*0«0 

lF<A6S(CFIl9ll-FCl9NP3nKLT..OOOilGO TO 27U 
HPCII*CF(lf ll-FC I 9 I) )*HPUT 

270 HRITEC69292) Ht Y (H ) lUiNI 9 Y PLUS C HI r UPLUS (Ml »HP( Ml fORATI H I 
GO TO 274 

272 ORATf II*SORTCAeS(f(lf i)ll/UCNP3l 

cummy*o.o 

WRITE 16 9292IPtY( PI »U( Ml 9 YPLUSCMI 9 UPLUSCNI 9 0JMMY»0RAT (Ml 
274 CONTINUE 

HRITE(6t280l 
IF(XO.GT.XUGO TC 276 
IFCINTG.EQ.IIGO TC 276 

If (KSPACE.EO.il •0R.KSPACE.E0.2l I WRITE 16«2S2I 
276 CONTINUE 
280 FORMAT(//l 

FL AG2* FL AG2 ♦ X SPACE-l 
279 FLAG*FLAG » SPACE 
278 CONTINUE 

282 fORMAT(/»115H INTG XJ UGU K F REM 

1 CF2 H REH ST FlitWALLI APL OR 6 PL AME I 

284 FORMATOXfl3f 2 X 9 f 7 . 492 X 9 r 7 . 29 lXtElO. 392 XiF 6.49 IX tf 7. 1 12 X. F 8.6 9 2 X 9 
lF5.393X9F7.I92X9f8.692X9F8.292X9F6.292X9F8.4l 
RETURN 


300 CONTINUE 
GO TO 1000 

400 CONTINUE 

IIIIthIS output ROUTINE IS DESIGNED PRIMARILY FOR FLOW IN A TUBE. 
IFCINTG.NE.IIGO TO 404 
KSPACE- SPACE 
IFCNPH.GT.OIGO TO 403 
STUI*0.0 
PRCliTI^O.O 
FCliNPBI-O.O 
SOURCECII-O 

403 FLAG»1 
FLAG2-1 

404 1FCRSPACE.EQ.11.0R.KSPACE.EQ.21ISPACE-1 
IFCXD.GE.XLIGO TO 405 
IFIINTG.NE.FLAGIGO TQ 425 

405 CONTINUE 

460 FORMAT! 2 X 9 5H1NTG« 9 I39lX93HXU*9f 6 . 39 lX 93 HRE- 9 F 9 .lt 


OUT01060 
OU'^'01070 
OUTOIO 8 O 
0U^01090 
OUTOllOO 
OUTOlllO 
0UT01120 
OUT01130 
0UT01140 
CUT0U50 
0UT01160 
CUT01170 
0UT01180 
CUT01190 
0UT01200 
0UT01210 
0UT01220 
OUT0123O 
0UT01240 
OUT01250 
OUT01260 
0UTO1270 
0UT01280 
0UT01290 
OUT01300 
0UTD1310 
QUT01320 
0UT01330 
0UT01340 
OUT01350 
OUT01360 
CUT01370 
OUT01380 
CUT01390 
OUT01400 
0UT01410 
0UT01420 
OUT01430 
QUT01440 
0UT01450 
CUT01460 
CUTO 1470 
OUT01480 
OUT01490 
CUTO 1500 
OUT01510 
0UT0152D 
0UT01530 
0UT0154O 
0UT01550 
0UT01560 
OUT01570 
OUT01580 
OUT01590 
0UT0160D 
0UT01610 
0UT01620 
0UT01630 
OUT01640 
OUT01650 


107 



c 

c 


c 


c 

c 


nXf4HCF2«tF7.5«lXt3HST»»F7.5flXr3HNU« »F7. 2* I X« 3HUM«« F7. 2 1 1X» 
13HFN>tF9.2tlX»6MPRESS«»FI0«3«IX#3HFW>«F8«2J 
N1NT0«INTG-1 
0-1 

lF(SOURCE«J)«EQ« 2 «ANa.NPH«£Q. 2 iJ «2 
IFCSOURCECJI .EQ.2.ANO.NPH.EQ.ll$raJ>U.a 
ANU-STf J|«PRfO«7I^REM 

NOTE that NUSSEtT «RE IS CALCUtATEO FRO^ 1>7 PR» WHEREAS THE 

OTHER PARAMETERS ARE BASED ON MIXED MEAN TEMPERATURE. 

WRITE C6»4S0»NINTG»XU»REMtCF29ST(JifAMUtUGJfFME AMIPRO tF( Or NP3> 
IFlXl.GT.X0lliRITE<69 4a2MSPi II tl-lr3» 

482 FORMAT(I2X,23HSPECUL OUTPUT - SP4il« r clO. 3t IXfBHSPf 21- rElO*3r 
IHSPOI-tElO.Jf lXfEHSPi4l«rE10.39lXr6HSP(5l«rE10.3l 
IFIXD.GT.XUGC TC 410 
1F(KSPACE«EQ«I|IGC TO 420 
|F<INTG.EQ.FIAG2»G0 TO 41D 
1FIKSPACE.EQ.2IIGC TO 420 

484 FORMATI /r5Xf45H I Y(il U(ll Fflrl) FCZrH 

li5Xr •YPLS5Xt*UPLS7Xr*£DR>»6X,*Tn H/l 
410 WRITE(6»484I 

486 FORMATIAXf !2r3XrF4«6f2XrF7.2rFi0.2rFia.2r3XfF8.2f2XvF6.2r 
14XrF6.2r4XrF7.2l 
DUM-0.0 

YPUT»UGUPS0RHCF2I 
OO 419 f«lrNP3 

IF(KEX.E0.1IYPL-IYINP3i-YI IJ IARH0CNP3I«YPUT/VISC0INP3» 
IF(KIN.EQ.l)YPl*(Y(I I-Y41I )^RH04 il«YPUT/VlSCO( 1} 

UPt-UCI l/YPUT 
lF(NPH.E0.1IF42rn-0.0 

IF(I.GT.2.ANC.I.LT.NP2)EDR«iEHU4I I^EMUI I-i I) / f 2.*V ISCOI 1 ) ) 
IFn.LT.3.0R.I.GT.NPUEDR«1.0 

IF4NPH.EQ.O)tiRITE46«4B6IIr Y( II rU4 n«0UMr3JNrYPLfUPt«£DR»T(n 
IF4NPH«GT«0MiRITE4 6r4a6l I r Y ( 1 1 , U 4 1 1 «F 4 1 r II » F 4 2 r I » » YPL rUPl »EDRr 
415 CONTINUE 

WRITEC6.488I 
488 FORMATC//I 

FtAG2«FLAG2^XSPACE-l 
420 CONTINUE 

FLAG-FLAG<^SPACE 
425 CONTINUE 
RETURN 


500 CONTINUE 
GO TO 1000 
600 CONTINUE 

THIS IS A GENERAL PURPOSE OUTPUT ROUTINE 


IFUNTG.E0.1IFLAG«I 

FAM«0«0 

IF4XO.CE.XLIGO TO 605 
IFCINTG.NE.FLAGIGC TO 620 
605 CONTINUE 

NINTG-INTG-1 

680 FORMAT(//r2Xr5H|NTG-r 13i2Xr3HXU*rF8.5f2Xr4HPE!«rF8.5r2Xr4HAMl< 
iF8.4r2Xr4HAME-tF8.4r2Xr9HPRESSURE«rF9.3»2Xr 5HB ETA« «F7.4 r2Xr 
22HK«rE10.3> 

682 FORMAT! 12Xr4HREM« rF9. Ir 2Xr 4HREH«r F9.1 ri X| 4HCF2»r F3 .6 r 2X r9HA OR 
l>t^6.2r2Xr2HH«rF6.3r2Xr7HlH04U«tF7.4r2X«9HRN0(NP3)-rF7.4l 
684 FORMATI I2X I 28HCISPLACEMENT OF I-SURFACc * rF7.5l 
686 F0RMAT(12Xr 9HSTIJ)* r5F9.6l 


0UT01660 
0UT01670 
OUTOI60O 
0UTO1690 
0UT01700 
0UT01710 
0UT01720 
CUT01730 
0UT01740 
0UT01750 
CUT01760 
lXr60UT0l770 
0UT01780 
0UT01790 
OUT01800 
CUT01810 
0UT0X820 
CUT01830 
0UT01840 
CUTO105O 
0UT01860 
OUT01870 
CUT01880 
OUTO109O 
0UT01900 
0UT01910 
0UT01920 
0UT01930 
OUT01940 
0UT01950 
GUT01960 
00^01970 
T( I I0UT01980 
CUT01990 
0UT02000 
OUT02010 
0UT02020 
OUT02030 
0UT02040 
0UT02050 
0UT02060 
0UT02070 
0UTO2ORO 
0UT02090 
CUT02100 
OUT02UO 
CUT02120 
0UT02130 
OU^02140 
0U^02150 
0UT02160 
0UT021T0 
CUT02180 
* 0UT02190 

QUT02200 
CUT02210 
8PL0UT02220 
CUT02230 
nUT02240 
CUTO2250 


108 



688 FOAHATI/* I V(I) R<1» OHUI UCll EHUd) C1UT02260 

1 Till F(l,n F(2fll FO.II F<6,H Ff5#II'/) nUT02270 

690 FORMAT(6X,I2flX,Fe.6,2X,F7.4,3X,F7.5, IX,F7,2,2X,F10.7,2X,F6.1 .2X, OOT02280 
15F10.3I CUT02290 

692 FORMAT (4X, 12 t IX t F8.6 .2X.F7 .4t3X ,F7. 5. iX>F 7 . 2 1 2Xt FIO. 7*2X, F6.3 I 0UT02300 

WRITEi6»680)NINTGtXU.PEl.AMl,AHEtPROtBiiTA»CAY 0UT02310 

CPL*APL 0UT02320 

IF4KASE.E0.2i GO TO 610 0UT02330 

IF(KO.GT.UCPL-BPL 0UT023A0 

IF4KASE.EQ.1 »WRI7E<6,6«2MEMtRtH,CF2.CPLtf4.RMO<H.RMD4NP3) CUT02350 

694 F0RMAT( 12X,2FF«, F6.3,2X,7-« VWPLUS-rF 7.4, 2X,6HPPLUS», F7. 4,2 X,8HTAUWAnUT0 2350 


610 


696 
69 6 


1LL»,F9.6I 

IF4KASE.NE.1 IGQ TO 610 

IFIKIN.E0.1.ANO.U4NP3i.Gr.O.OOliFAM«AMI/( JC 4P3i4RH04NP3»» 

IFlKEX.EQ.l.ANO.Ud) .CT.O.OOL)FAH*AHi:/lua)*RMOf II I 

MUTE(6,694iFAP,GFL,PPL,rAUW 

IF(6E0M.E0.9)WRITE(6,684)RW0 

EMU(I)>0.0 

IFCKASE.E0.1.AND.NPH.N£.0)HRITE<6,686H$r( Ji • J»1,NPHI 

IF4XASE.E0.1 .AND.KPH.NE.0IMRirE(6,696l(QU( Jl ,J-1,NPHI 
FORMATU2X,8hQUAU- ,5F10.5I 
FORMAT! 12X,9HGAMA(J|- ,5F9.5) 

IFfKASE.EQ.l.AND.APH.NE.Oi WRITE46,69ai(GANAi Jl ,J»1,NPH) 
IF(Kl.GT.10lhRITE<6,699)(SPni ,I»1,5I 


CUT02370 
0UT02380 
QUT02390 
CUT0 2 400 
0UT02410 
0UT02420 
OUT02430 
0UTO2440 
nuTO2450 
OUT02450 
OU'^02470 
0UT024R0 
0UT02490 


699 FORMAT! 12X,23HSPECIAL OUTPUT - SP ll ) - ,£i J. IX,6HSP« 2 I = ,E 10.3 , I X, 5 OUTO 2 500 
1HSP(3)>,E10.3, 1X,6HSP44)*, ElO. 3,lX,6HSPI5i=,E10.3» 0UTO251O 

hRITE«6,688l OUTO2520 

EMU4NP2I-0.0 OUT02530 

EMU! NP3 1-0.0 ?UT02540 

DO 615 I-1,NP3 0UT02550 

IFINPH.EO.On*BITE!6,692II, T! II ,R1U ,UM!H,U! 1 1 , EMU 1 1 1 ,T!I ) CUT0 2560 

IF!NPH.GT.0IWRITE(6,690) I, Till ,RU l,OM!II,U! I) ,EMU!I),T! I ), HU^OPSTD 

1IFU,1),J»1,MPHI CUT02580 

615 CONTINUE CUT02590 

FLAG=FLAG*-SPACE OUT02600 

620 CONTINUE CU’’02610 

RETURN OUTO2520 

1000 CONTINUE rU’^0 2630 

RETURN OU''02640 

END ?UTO?550 


SUBROUTINE PR0P2 !K,FX,T1 , Y ISCOI ,PRA,RHOAi 


C 

c THIS PROGRAM CALULATES THE PROPERTIES OF AIR AT ABSOLUTE STATIC 

C ENTHALPY OETERPTRED FROM FU,II AND UIll. IT IS ESSENTTAUV A 

TABULATION OR THE ECKERT AND DRAKE TABLES. IT IS ASSUMED 

C IN USING THIS SU8R0UTINE THAT THE OEPfcNOEYT VARIABLE IN 

C THERMAL ENERGY ECUATION IS STAGHATIOrt ENTHALPY. 

HERE* 

K»l IMPLIES START WITH LOmEST TABULATED STATIC ENTHALPY 

C..... -2 IMPLIES START NITH PREVIOUSLY UicD TABULATED STATIC 

C..... ENTHALPY 

C HI-ABSOLUTE STATIC ENTHALPY ( 6/LBMI 

C..... PRE-STATIC PRESSURE ! L8F/S0.FT. I I 

C RHOA-CALCULATEO DENSITY ILBM/iCU.FT. 1 1 

C VISCOI-CALCUL ATED DYNAMIC VISCOSITY !tBM/ ISEC.FT. IJ 

C..... PRA-CALCULATEO PRANDTL NUMBER 

C TI-CALCULATEO temperature 4DEG. RANKiNcI 




0 }: 








OROPOOOO 
oROPOOlO 
PRriP00?0 
PROPOD30 
PROP0O<» ' 
P!>'?P0050 
ORnPOOb*) 
»R0O0070 
PROP 00^0 
PROP0190 
PR?P0103 
PROP Olio 
PR?P0120 

PRnroi?o 

oQnr>o\u(\ 

PRr.POlSO 

OROPOl^O 

PROP0170 
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INTEGER GEONf FlUICfSOUftCcI 5) ,SR4Cci8L)£)PjRf GJTRUT,TYPBC 
COMNON/GEN/PE! f AP!,ANEfDP:)XrXJ#XOfXL» OX, HfGfCSAtFA, TYP6C<5I , 
IPOOEf PAT(5» ,PRE,NXBC,X(IOD 1 fRirillaO) ,F J( !> , l 00 ) , GC ,C J, AN( IOO),P:>G, 
2UGI100I fPOf SOURCE fRETRANiNUHRJN, SPACE, KWOtPPl AG, OUTPUT, D6LTAX,GV 
5/V/U( 54» ,^(5,541 ,R<54),0N( 5AI ,y(54l ,OGJ, J30f Ul fFIl 5> , FMEAN,TAUW 
I/0/H,R£P,CF2f ST(5l,tSUS,LVAR,CAy,iiEH,PPL,GPL,QW(5) ,X0 
OIRENSICN HA134) , TAI 34 1 , VS ( 341 , PA (i4l 

DATA HAm , HA (21 , MAC 3 l,H4C 41 , HA I S I , HA ( 6 ) , HA ( 7 » , HA ( 8 ) , HA ( 9 ) ,HA ( 10 ( 
lHA(lI)tHA(l2l,HA( l3)fHA(i4),HAU3),HAa6l,HA(17),HA(I8l ,HA(19» , 
2HA( 20), HA (2 II, HA (221 , HA( 23 i , HA ( 24 I , HA (25 1 , HA f 2 6 1 , H A ( 27 ) , HA ( 28 I , 
3HA€29l,HA(30),hA(31l ,HA(32 ),HA(33),HA (341/42.89,64.43,85.97, 

4107. 50, 129,06* 150.68,172 .39, 194. 2 5, 21 6. 26, 23 8. 50,2 60. 97 , 2 63.6 8 , 

: 5306.65,329.88,353.37,377.1 1,401.09,425.29,449. 71,499.17,549.35, 
6600.16,651.51, 703.35, 755.6 1,806. 28, 86 1.28, 914. 61, 968. 21, 
71022.09,1076.20, 1130.56,1185.11,1270.47/ 

DATA TA(1),TA(2) ,TA(3l,rA{4),TA(5),TA(6i ,7A( 7) ,TA(8>,rA(9),TA( 10) 
1TA(11I,TA<12I,TA<13) ,TAU4l,rA(i3),rAa6l,TAU7),TA(18) ,TA(I9) , 
2TA(20I,TA(21),TA<22) *TA(23I ,TA(24) ,TA(25J ,TA(26I,TA(27I , rA(29l , 
3TA(29),TA(30),TA(31) ,TA( 32 I ,74(33 I, TA(34J/ 180. 0,2 70. 0,360. 0,450.0 

4540.0. 630.0,720,c,810.0,900.0,990«0,10d0. J,I 170.0, 1260. 0, 1350.0, 

51440.0. 1530.0.1620.0.1710. 0, 1800. 0, 1980. J, 60.0.2340.0 ,2 520. 0 , 

62700.0. 2860.0.3060.0.3243.0.3420.0. 3600. J, 3 7 60.0,3960.0,4140.0, 

74320.0. 4620.0. 

CATA VSm ,VSI2) tVS(3l,VS14l , YS ( 5 1 , VS ( 6) , VS< 7 ) , V5( 8) , VS ( 9 ) , VSC 10 » 
lVS(ll),VSa2) ,VS(13) ,VSU4) ,VS(15» ,VS(16),VS< 17),VS(18) ,VS(I9) , 
2V$(20I ,VSC21) ,V$(22I ,VS(23l,Vi(24)tVS (25) , VS ( 26) , VS( 27 ) , VS(26 1 , 
3V$(29),VS(30),VS(31) ,VSI32) ,VS(33) ,V$(34l/46.53,69.10,89.30, 107.4 
4124.1,139.4, 153.6,166.9,179.5, 191 .4 ,202.8, 2 1 3 • 5, 223.9 , 2 33 .9, 243. 6 

5253.0. 262.0.270.3.279.0.29. 5.5, 310.9 ,325. 8, 33 9. 8,333.3,3 66.8,379.2 
639 1.5, 402. 9, 416. 8, 430. I, 43 9. a, 451. 3, 461. 1,475,0/ 

DATA PA(1) ,PA(2I •PAC3I,PA( 4) ,PA( 5) , PA f6 I , PA( 71 ,PA( 61 , PA ( 9 ) ,PA(10) 
lPA(lII,PA(12),PA(13),PA(l4l,PA(15l,PAa6lf PA(17),PA(18) ,0A(I9) , 
2PA(20I,PA(21I,PA(22) ,PA(23),PA(24),PA(25) ,PA(26),PA(27) tPA(28l , 
r 3PAC29),PA(30),PAC31) ,PA432),PA(33),PA(34)/0.770,0. 753,0.739,0.722 

40. 708.0. 697. 0.669.0.683.0. 680,0.680,0.680,0. 68 2,0. 684, 0.686, 0. 689 

50.692.0. 696.0. 699.0. 702.0. 706,0.714,0.722,0. 726,0.734,0.741,0.749 

60.759.0. 767.0.783.0. 803,0. 631 , 0. 6<»3,0 .916, 0. 972/ 
Hi>Fx*(u<Ki*in(n/(2,o«GC«cji 
IFCHA(34I.LT.Hl.CR.HAm.GT.HnLVAA*7 

IF CLVAR.E0.7) WRITE (6,6) 

(F(HA<34I.LT«HIIH!«HAI34I 

1F(HA(1I.GT.FIIH(«HA(1) 

6 FORMAT(//« ENTHALPY IS OUT OF THE RANGE OFV 
1^ VALUES TA8ULATEC IN PRQPZWn 
IFIK.EQ.I) L»1 
00 I I«L,34 

IFCHAm.GT.Pl) €0 TO 2 

1 CONTINUE 

2 N»I-1 

if(ha(n).le*m) gc to 5 

DO 3 J-ltN 

1F(HA(H8I.L£.H1) go to 4 

3 CONTINUE 

4 N*NB 
I-N^l 

5 L«I 

TI«TAINI^ITAUI«-TA(H))4(H1-HA(NI l/lHAm*HA(M) I 
VlSCOI«(VS(N)«^IVSm-VS(MI l•(HI•HA(N) )/ (HA(1 l-HA I M I ) 1 60 .0000001 
PRA«PAIN|a(PA( 1)-PA(M)|6| H1*HA (Nil/ IHAUI -HAIM) I 


«>papoi8o 
PP0O0190 
PRCP0200 
PP?P02If) 
PROP0220 
OP0P0230 
PRGP0240 
, PRGP0250 
PR0P0260 
PP">P0270 
PROP0280 
PROP0290 
PP.0P0300 
PR3P0310 
PP.3P0 320 
, PR0P03BD 
PRnP0340 
PRQP0350 
, PRnpQ360 
PROP 0370 
PROP0380 
PROPOB^if) 
PR?P0400 
, PP0P0410 
PROP 0420 
PROP 04 30 
PROP 0440 
PROP 0450 
PROP0460 
PR0PO470 
PROP0480 
PROP 0490 
PR0P0500 
PQOPOSIO 
PR0P0520 
PR0P0530 
PR0P0540 
PROP0550 
PR0P0560 
PRnP0570 
PROP 0580 
PROP 0590 
PROP 0600 
PRQP0610 
PR0P0620 
PR0P0630 
PROP 0640 
PROP0650 
PR0P0660 
PR0P0670 
PROP 0680 
PROP0690 
PROP0700 
PR0P0710 
PR0P0 720 
PR0P0730 
PR0P0740 
PR0P0750 
PROP 0760 
PROP 0770 


lin 
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PRES=PRE 

IFJLSUB.GT.OI PRES-PRO 

RH0A^PRES/(Sa.3^*T|) 

RETURN 

END 


PR0P078O 
PRnP0790 
PROP 0800 
PROP O.BIO 
PR0P0.B20 


SUBROUTINE INPUT (PERRORI INPUOOOO 

INPUOOlO 

'integer GEOM,FLUICtSOURC:( 5J tSPACEi BOOFORt OUTPUT, TVPBCr TI TLE( 181 INPU0020 

COMMON/GEN/PEI ,API,AME,OPOX,XiJ,XO,XL,OX,INTC,CSALFA,TYPBC«5l , INPU0030 

IN0DE,PRT(5) ,FRE,NXBC,X(ID3 »,R«U0U»,FJ(5,100),GC,CJ,AMI 100> .PRO, INPUOOAO 

2UG(100I ,P0, SOURCE, RE TRAN, MUNRUN, SPACE, RMO, PPL AG, OUTPUT, DELTAX.GV INPU0050 

3/E/N,NP1,NP2,NP3,NE0,NPH,XEX,KIN,KASE,KRA0,GE0M,FLUID,B0DF0R, YPMININPU0060 

A/GG/BETA,GANAI5I , A JM 5 ) , AOE ( 51 , INOI ( 5 I , INDE ( 5 1 ,TAU,0«F( 51 INPU0070 

5/V/UI5A) ,F(5,5A),R(54J,aMl5A),Y454J ,UGU,JGO,Ul ,F I ( 5) ,FMEAN,TAUW INPUOOflO 

6/W/SC(54),AUI5AI ,BU( 54 ) , C J 1 54* , A( 5, 5A I , BI 5 , 54) ,C < 5 ,54) , SlM 5 ,54 ), SO INPUOOLO 
7/L/AK,AL«G,ALNGG,FRA,APL,BPL,AQ,BU,EMU(54),PREFI5,54),AUXPI INPUOlOO 

8/Ll/YL ,UMAX,UNIN,FR, YIP,VEM,ENFRA,XENT,AJXH2 INPUOllO 

9/P/RH0I54) ,VISCO( 54) ,PRI 5,54I,RH0C, VI SCOC , PRCI 5) ,T <54 ) , RHCM, BF ( 54 ) INPU0120 
l/0/H,REM,CF2,ST(5 >,LSUB,LVAR,CAY,REri,PPL,6PL,QM(5l ,KD INPU0130 

2/CN/AXX,BXX,CXX,CXX,EXX,Kl,K2,K3,SP(54) ,AJXl ( 100 I , AUX21 100) , YPMAX 1NPU0140 

TNPU0150 

IeACH 'READ* STATENENT IS INDICATED BY THE SUMBOLS ♦**♦***••***♦•** INPU0160 
.ALL INTEGERS ARE IN FIELDS OF 5 SPACES. BE SURE TO JUSTIFY TO INPU0170 

•RIGHT. ALL OECIPAL NUMBERS ARE IN SUCCESSIVE FIELDS OF 10 SPACES. INPU0180 
,••«**»#**••**•*•**«***« READ IN A title OF UP TO 72 CHARACTERS INPU0190 

REA0(5,505)TITL6 INPU0200 

INPU0210 


bRITEI6,506)TITLE 

THE QUANITIES READ AT THIS POINT ARE OEFINEOi 

6EQM- GENERAL STA^TEMENT OF THc SYSTEM GEOMETRY 

»1 implies AXl-SYMNETRIC BODY— RADIUS NOT INCLUDED TN 

BOUNDARY LAYER EQUATIONS, APPLICABLE TO EITHER 

internal or external boundary layers where 

BOUNDARY LAYER THICXNESS IS SMALL RELATIVE TO 
BODY RADIUS. AlSO APPLICABLE TO FLAT-PLATE 
GEOMETRY ISIMPLY SET RWiN) CONSTANT). 

-2 IMPLIES AXI-SYMMETRIC BOOV—RADIUS INCLUDED IN 

BOUNDARY LAYER EQUATIONS, APPLICABLE ONLY TO 
EXTERNAL BOUNDARY LAYERS f K IN-l ,KEX^2 ) 

•3 IMPLIES AXI-SYMMETRIC BOUNDARY LAYER, APPLICABLE ONLY 
TO INTERNAL BOUNDARY LAYERS ( KIN«2, KE X«1 » 

-4 IMPLIES CIACULAR TUBE-FLOW PROBLEM IKIM«3,KE X* 1 ) 

•5 IMPLIES FLOW BETWEEN PARALLEL PLANES, SYMMETRICAL 
BOUNDARY CONDITIONS (KlN>3,KEX-l) 

•6 IMPLIES AXULLY-SYMNETRIC JETS 
•7 IMPLIES AXIALLY-SYMMETRIC FREE SHEAR FLOW 
-8 IMPLIES TWO-DIMENSIONAL SYMMETRIC JET 
«9 IMPLIES TWO-OIMENSIONAL FREE SHEAR FLOW 
MODE- TYPE CF FLOW SYSTEM CONSIDERED INITIALLY 
-1 IMPLIES LAMINAR FLOW 
-2 IMPLIES TURBULENT FLOW 

NOTE: IF NODE - 1 THE PROGRAM AUTOMATICALLY CHANGES 
TO TURBULENT FLOW WHEN THE MOMENTUM THICKNESS RE 
NUMBER EXCEEDS VALUES INSERTED AS 'RETRAN* BELOW. 
FLUIO- TYPE OF PUINSTREAN FLUlO/SELECTS APPROPRIATE SUBROU- 
TINES 

-I IMPLIES CONSTANT PROPERTY FLUID 
-2 IMPLIES AIR AT MODERATE TEMPERATURES 


INPU0220 

INPU0230 

INPU0240 

INPU0250 

INPU0260 

INPU0270 

INPU0280 

INPU0290 

INPU0300 

INPU0320 

INPU0330 

INPU0340 

INPU0350 

INPU0360 

INPU0370 

INPU0380 

INPU0390 

INPU0400 

INPU0410 

INPU0420 

TNPU0430 

INPU0440 

INPU0450 

INPU0460 

INPU0470 

INPU0480 

INPU0490 

INPU0500 

INPU0510 

TNPU0520 

INPU0530 
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>3<0R HIGf€RI IMPLIES OTHER FLUIOS HOT YET SPECIFIED. 
HEQ» NUMBER CF CONSERVATION EQUATIONS CONSIDERED 
INCIUOUG MOMENTJM EQUATION 

N« NUMBER OF STRIPS ACROSS LAYER (UNITED TO 50» THIS VERSION 
KEX« DEFINES TYPE OF BOUNDARY AT ARBITRARILY NOMINATED 
EXTERNAL BOUNDARY 

KIN« DEFINES TYPE OF BOUNDARY AT ARBHARILY NOMINATED 
INTERNAL BOUNDARY 
KINtXEX* 1 IMPLIES MALL BOUNDARY 

« 2 IMPLIES FREE BOUNDARY 

« 3 IMPLIES LINE OF SYMMETRY 

KENT* 0 IF ENTRAINMENT IS BASEO ON MOMENTUM EQUATION ONLY. 

* I IF ENTRAINMENT IS BASEO ON ALL EQUATIONS. 


INPU05A0 

INPU0550 

INPU0560 

INPU0570 

INPU0580 

INPU0590 

INPU0600 

INPU0610 

INPU0620 

INPU0630 

INPU0640 

INPU0650 

INPU0660 




( INTEGERS! INPU0680 

REA0(5«56S! €ECM tMGOEfFLUI 0 »NEO«N«iC£X »KIN» KENT INPU0690 

INPU0700 

WR|TE(6f5lO! TNPU0710 

IF(N.G7.40lMRITE(6t980l TNPU0720 

MRITE(6f520l CEOMfMOOE»FLUIOfNEQrNtKEX»K|N INPU0730 

IF(GE0N.EQ.4.0R.GECM.£Q.5IG0 TO 20 INPU0740 

1F(KENT.EQ.0!WRITEI6«525) INPU0750 

IFIKENT.GT.OIMRI TE(6t526) INPU0760 

.... THE QUANITIES READ AT THIS POINT ARE OEFINEO: INPU0770 

.... XU* INITIAL VALUE Of X CHOSEN TO DEFINE POSITION OF INITIAL INPU0780 
.... PROFILES, typically XU*O.Uf BUT NEED NOT BE. INPU0790 

XL- VALUE CF X WHERE COMPUTATIONS ARE TERMINATED INPUOBOO 

.... OELTAX* MAXIMUM STEP IN X-DiRcCTlON, EXPRESSED AS FRACTION OF INPU0810 
«... eOUNCARY LAYER THICKNESS (SUGGEST 0.5* BUT CAN RE MA0EINOU0820 

MUCH LARGER FOR CONSTANT PROPERTY FLOWS AND LAM FLOWSL INPO0B3O 
.... RETRAN * MOMENTUM THICKNESS REYNOLDS NUMBER (OR DIAMETER INPU0840 

.... REYNOLDS NUMBER IN TUBE-FLOW PROBLEM! AT WHICH INPUCPBO 

.... TRANSITION FROM LAMINAR TO TURBULENT BOUND- TNPU0860 

•«.. ARY LAYER IS DESIRED (USE DUMMY NUMBER IF TNPU0870 

PROBLEM IS ALL TURBULENT.! (SUGGEST 200.0) INPU0B80 

.... FRA- fraction for OerERMlNATION OF DX TO NEXT POSITION (SUG- INPU0890 
GESTEO VAlUE-0.03). INPU0900 

.... ENFRA* DESIRED FRACTIONAL DIFFERcNCE StTwFEN FREE-STREAM AND INPU0910 
.... NEXT-TC-LAST GRID POINT. CONTROLS ENTRAINMENT RATE. TNPU0920 

.... (SUGGESTED VALUE-0.005). THIS VALUE IS RELATED TO THE IN»U0930 

.... CHOSEN GRID SPACING. IN SOME CASES 0.01 WORKS BETTER* INPU094Q 

.... BUT WITH A FINE GRID IT HAY BE NECESSARY TO GO AS LOW INPU0950 

.... AS 0.001. IF THERE IS NO FREE-STRFAM INPU0960 

.... leave ENFRA blank* or use any dummy number. INPU0970 

«••• GV- GRAVITY CCNSTANT* POSITIVE IN POSITIVE X DIRECTION. INOU09B0 

.... LEAVE 0.0 OR BLANK IF GRAVITY IS NOT CONSIOERFO. INPU0990 

fN'^U 1000 

(DECIMAL NUMBERS) INPUlOlO 

20 REA0(5f 580 !XUf XL fCELTAXtRs TRANfFRA* ENFRA* GV !Ni>U1020 

*.... INPU1030 

hRITE(6t540) TNPUI040 

WRITE <6 *550) XU* XL «DELTAX * RETRAN* FRA* ENFRA* GV INPUI050 

NPH-NEO-1 INPU1060 

KASE-1 (NPU1070 

IF(KIN.NE.l.AN0«KEX.NE.llKAS£*2 TNPU1089 

....the QUANITIES READ AT THIS POINT ARE DEFINED^ IWPU1090 

...BCDFOR- type CF BCCY-FORCe (OTHER THAN PRESSURE GRADIENT) INPUllOO 

.... -0 implies no extra body forces INPUlliO 

.... »l implies FREE-CDNVECTIDN BODY-FORCE. INPU1120 

•••• -2 implies AN external BDUY-FJRCE (IN ADDITION TD FREE !NPUll30 
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.... CONVECTICM). ‘INTROOUCEO THRU AUXl(N). I 

...SOURCEI J)- TYPE OF SOURCE FUNCTION IN THE DIFFUSION EQUATIONS. 1 

.... • 0 IPPLIES NO S3URCE FUNCTION. 1 

.... - 1 IPPLIES VISCOUS DISSIPATION. PLUS WORK OF ANY BODY 1 

FORCES. IN THE ENERGY EQUATION. I 

• 2 IPPLIES The SOURCE FUNCTION FOR THE TURBULENT ENERGY I 

.... EQUATION. SETTING SOURCE EQUAL TO 2 FDR ANY DIFFUS- 1 

.... ION EQUATION automatically MAKES THAT EQUATION BE THE 1 

.... TURBULENT KINETIC ENERGY EQUATION. AND AT THE SAME 1 

.... TIME THE EDDY VISCOSITY AND EDDY CONDUCTIVITIES WILL I 

.... BE CALCULATED BY THE TURBULENT KINETIC ENERGY METHOD 1 

.... INSTEAD OF FROM THE NIXING LENGTH. I 

.... - 3 IPPLIES VISCOUS DISSIPATION PLUS AN EXTERNAL VOLUME 1 

.... SOURCE, INTRODUCED THROUGH AUX2IMI, PLUS BODY FORCE 1 

.... MORK. IN THE ENERGY EQUATION. AUXZfMI HAS DIMENSIONS! 

.... ( ENERGY)/! VOL UN£*TlMc>. I 

.... * A IPPLIES AH EXTERNAL VOLUME SOURCE, INTRDOUCEO THROUGH! 

.... AUX2(MI. DIMENSIONS, iOUAMTI TY >/ I VOLUME*T I ME ) . ! 

....SOURCE WILL NOT BE READ UNLESS NEQ IS GREATER THAN 1. ! 

*******m*******m**^r******** READ EITHER OF THE NEXT TWO ! 

IINTEGERSI ’ 

IFINEO.GT.l )REAO(S,5e5) BODFOR, I SOURCEI UJ . J«l, NPH) 
IFINEQ.EQ.1)REAOI5.5B5)BOOFOR 


MRITEI6, 820) J 

IFINEQ.GT.l)hRITE(6, 830) BODFOR, ISOURCEI J) , J=1,NPH) I 

1FINE0.£C.1)PRITE(6,830)B00F0R I 

.... THE OUANITIES READ AT THIS POINT ARE DEFINED: 1 

.... PO- INITIAL FREESTREAN STATIC PRESSURE 1 

.... RHOC»OENSITY OF CONSTANT PROPERTY FLUID 1 

.... VISC0C*V1SC0SITV OF CONSTANT PROPERTY FLUIDCIF ENGLISH UNITS, 1 
.... USE DYNAMIC VISCOSITY, LBM/I SEC-FT ) » . 1 

.... PRC » PRANOTL NUMBER OF CONSTANT PROPERTY FLUID I FOR TURBULENT! 
.... KINETIC ENERGY EQUATION USE PRC>1.00) ' 

.... CTHE CONSTANT PROPERTIES MAY BE UMITTEO IF FLUID NOT EQUAL II 
IF(FLUIO.E0.2)HRITE(6,800) 

IFI fluid. FQ. l)hRITEI6,75D) 

A******************** READ ONLY ONE OF THE FOLLOMING T»«EE 
IDECIPAL NUMBERS) 

IF (FLUI D.NE.l IRE AEf 5,580) PO 

IFIFLUIO.EQ.l.AND.NEQ.Gr.l >REAO«5,5aOI PO, RMOC ,VISC0C , C PRC I J) , J-l, ! 
INPH) 

1F(FLUIO.EQ.1.ANC.NEO.EQ.1)REAOI5,S80)PO,RHPC,VISCOC 


WRITEC6,700) 

NR1TEI6, 900) PO 
JFIFLUIO.NE.IIGO TO 50 
HRITE(6,680) 

IFINPH.EQ.OI GO TC 40 

URI TE 1 6,690 ) RHOC , VI SCOC , I PRCI J I , J- 1, NPH) 

GO TO 50 

WRITEC6, 8701 RHCC,VISCDC 

CONTINUE 

NRITE(6,770) 

BOUNDARY CONDITIONS ALONG 1 AND E BOUNDARIES I ONLY ONE MAY BE 
A MALL) 

THE OUANITIES READ AT this POINT ARE DEFINED: 

NXBC* NUMBER CF POINTS USED TO SPECIFY BOUNDARY CONDITIONS 
EITFER INTERNAL OR EXTERNAL BOUROARY 
TYPBC(J)e IPPLIES TYPE OF BOUNDARY CONDI TION GIVEN FOR THE 


specify BOUNDARY CONDITIONS AT 
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•••• J-TH CONSERVED aUANTlTV AT A MALL SURFACE 

.... >1 I>>PLIES LEVEL SPECIFICATIDS 

.... -2 IMPLIES FLJX SPECIFICATIOM 

.... NOTE: FOR THE TURBULENT KINETIC ENERGY EQUATION 

.... USE TYPBCtJ)>l 

.... (TYPBC WILL NOT BE READ UNLESS NcQ IS GREATER THAN 1) 
***««*•********«*««« RE40 ONLY ONE OF THE FOLLOWING THREE 
....NOTE; KASE«1 MEANS A WALL; KASE>2 NEAnS THERE ARE NO WALLS. 
tlNTEGERSI 

IFIKASE.E0.1.AN0.NE0.GT.UREA0I5.585I NXBC. ( TYPBCIJI »J=1.NPH) 

IF(KASE.EQ.l.ANO.NEO.EQ.UREAO(5,585iNXBC 

IFIKASE.E0.2)REAC(5.565INXBC 


1F|KA$E.EQ.2.0A.NEQ.E0.1)GO TO 70 
t>RITE(6,570t 

MRITEI6.590) NXBCf ITYPBCI J ) >J-ltNPHI 
' GO TO 80 
70 hRITE(6. 690) 

MRITEI6, 585) NXBC 

.... THE QUANITIES READ AT THIS POINT ARE DEFINED: 

.... X(M)» POSITICN AT WHICH THE BOUNDARY VALUES ARE GIVEN. NOTE 

.... THAT X(I) MUST BE LESS THAN (OR EQUAL TO) XU. AND THE 

.... LARGEST value OF X(M) MUST BE GREATER THAN 

.... (OR EQUAL TO) XL. 

.... RWIN)* DISTANCE FROM AXIS OF SYMMETRY TO BODY SURFACE. 

.... SET- CCNSTANT if plane BuUNOARY LAYS). (SUGGEST 1.01 

.... FOR GECM-4. RW(N) IS THE PIPE RADIUS. MAY VARY WITH X. 

.... FOR GECM-S. RW<M) IS THE HAlF-WIOTH OF THE DUCT. WHICH 

.... MAY BE A FUNCTION OF X. 

.... FOR GEOM-6.8. OR. 9. Rw(N) IS TOTALLY A DUMMY. 

.... FOR GEGN-7. RW(M) IS THE INITIAL RADIUS OF THE I- I 

.... BCUNDARY. BUT IS A DUMMY THEREAFTER. 

.... AUXl(M). AUX2(M)> AUXILIARY FUNCTIONS. FOR SPECIAL PURPOSES: I 

INTERPOLATED VALUES HILL APPEAR IN THE COMMON AS AUXMII 
.... I AUXM2 IF THERE IS A WALL. LEAVE COLUMN BLANK IF I 

.... NOT LSEO. ] 

80 CONTINUE ! 

IFINXBC.lt. 2 )HRITE(6«920) I 

00 90 M-l.NXBC I 

A**A**«MA**A«*4i*«***W******A^**^*AW«««****«A*A**«**********i^**«***** | 

(OECiMAL NUMBERS, IN THE FORM OF A TABLE.) I 

90 REA0(5.5fl0) X(M) .RMIM),AUXl{NI ,AUX2(M) 1 


THE QUANITIES READ AT THIS POINT ARE OEFIMEO: 

UG(M)« FREESTREAM VELOCITY AT POSITION X(M). IF BOTH THE 

I ANO E SURFACES ARE FREE-STREAN BOUNDARIES. UG(MI IS 
THE FREE-STREAM VELOCITY ON THE E-SIDE ANO MUST START 
OUT THE SAME AS U(NP3). 

(IF THERE IS NO FREE-STREAM READ IN A OUM)(V 
NUMBER FOR UG. OR ELSE LEAVE A BLANK) 

AM - MASS FLUX AT WALL, POSITIVE IN THE POSITIVE DIRECTION OF Y 
(AN WILL NOT BE READ UNLESS THERE IS A WALL.) 

FU(J,NI- VALUE OF PROPERTY OR FLUX OF PROPERTY AT BOUNDARY 
NOTE that if FJ IS A PROPERTY AT THE 

WALL (SUCH AS eiTHALPY), rYPSC(U) , ABOVE, MUST BE EQUAL 
TO 1. IF FJ IS A FLUX AT THE HALL (SUCH AS HEAT FLUX). 
TVPBC(J) MUST BE SET EQUAL TO 2. IN THE LATTER CASE, FJ 
IS THE TOTAL FLUX OF THE PROPERTY IN QUESTION. I.E.. THAT 
EVALUATED AT THE 'T-STATE* CONTROL SURFACE. THIS BECOMES OF 
PARTICULAR SIGNIF'ICANCE WHEN THERE IS NASS TRANSFER AT THE 
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SURFACE. If FJ IS A yAU FLUX, IF SHOULD BE POSITIVE 

IN THE POSITIVE DIRECTION OF THE COORDINATE SVSTEM, 

FOR THE TURBULENT KINETIC ENERGY EQUATION SET FJ*0.0 

(FJ HILL NOT BE READ UNLESS THERE IS A WALL, AND HILL NOT 

BE READ IF NEC IS 1) 

NOTE; IF FJ IS A HALL FLUX, AND IS lERO (ADIABATIC HALL>, SOME 

ERROR MAY BE INTRODUCED BECAUSE THE DEPENDENT VARIABLE IN THE 

..... HALL FUNCTION IS NORMALIZED HITH RESPECT TO THE MALL FLUX. 

IT IS BETTER TO INTRODUCE A SMALL HALL FLUX. (SUGGEST O.OOOll 

.....(NOTE THAT M IS AN INTEGER VARYING FROM 1 TO NXBC. > 

HRITE(6,600I 
OO 110 H»1,NXBC 

*•«***«*»«••«*** 4*****4*REA0 only one of the folldhing three. 

(DECIMAL NUMBERS, IN THE FORM OF A TABLE! 

IF(KASE.EQ.l.AN0.NE0.6T.l»REA0(5,5BOJUG(Ml .AMIMI, IFJ( J,MJ ,J>1,NPH) 
IF(KASE.E0.1 .ANO.NEO.EQ.1)REAO(5.5BO) UG(N),AN(M) 

IFIKASE.E0.2 IREAC(5, 560iUG(HI 

"’***IF(KASE.E0.1.AN0.NE0.GT.llHRITE(6,6li>l N, X( M J , RH( Ml ,UG( Ml ,AH(MI, 
lAUXKHI ,AUX2 (PI • (FJ( J,M) ,J-1,NPH) 

IF(KASE.E0.1.AND.NEQ.E0.1IHRITE(6,610IN,X(NI,RH(MI,UG(M|, AM(MI , 

lAUXKMI ,AUX2(PI 

110 IF(KASE.EQ.2lHRITE(6,610)N,XI<n,RH(NI ,UG( i I , AUXKM 1 , AUX 2( Ml 
NPl»N*l 
NP2«N^2 
NP3*N>S 

INITIAL PROFILE SPECIFICATION 

..... THE INITIAL VELOCITY PROFILE ESTABLISHES THE GRID SPACING 

AND THUS SOME CARE SHOULD BE EXERCISED IN LAYING IT OUT. 

THE PROGRAP IS NOT PARTICULARLY SENSITIVE TO UNEVENNESS 

IN THE Y-INCREMENTS, BUT BIG CHANCES IN OELTA-V SHOULD 
BE AVOIDED. 

FOR TURBULENT FLOH NEAR A HALL THE VALUE OF 

U*Y«OENSlTY/VISCOSiTY AJ THE FIRST POINT NEXT TO THE 

hall should be not less than about 2DU, UNLESS IT I S DESIRED 

..... TO BY-PASS THE HALL FUNCTION. IN THAT CASE THIS VALUE 

..... SHOULD BE LESS THAN 1.0, AND ABOUT 20 POINTS RATHER EVENLY 

SPACEOSHOUIO BE USED OUT TO VPLUS EQUAL ABOUT 20.0. 

Y(II« DISTANCE ALONG NORMAL TO BOUNDARY 

note that Y IS MEASURED FROM THE I-BOUNDARY, 

I.E., V(ll- 0.0. 

..... U(II- VELOCITY IN X-OIRECTION AT VIII 
F(J,I>- VALUE OF CONSERVED QUANTITY AT V(II 

NOTE* FOR ThJ TURBULENT KINETIC ENERGY EQUATION USE 

F(J,II«Oi.O AI THE WALL (IF ANYI. THE REMAINDER OF 

..... THE INITIAL TURBULENT KINETIC PROFILE DEPENDS ON THE 

PROBLEM SPECIFICATIONS. IT CAN BE ALL ZERO. 

liUTE(6,760l 

HRITE(6,630I , . 

*****«•*«**•***•**«*« READ IN A TABLE OF Y AND U, OR Y, U. AND F'S. 

(DECIMAL NUMBERS I 

IF(NEQ.EQ.1IG0 TO 2A0 

REAO(5,580) Y( 1 ) ,UI1 1 * (F( J , II • J«1,NPH I 
DO 220 1-3, NPl 

220 REA0(5,580I Y(II ,U(I l,(F( J.Ilt J-ltNPHl 

REA0(5,580I V (NP3) ,U(NP31 , (F( J,NP3I ,J-1,NPHI 
GO TO 255 

2A0 PEA0(S,S60I V(1I,U(1I ^ 

00 250 I«3,NP1 

250 REA0(5,580) Y(II*U(I) 


INPU23A0 

INPU2350 

INPU2360 

INPU2370 

INPU2380 

INPU2390 

INPU2400 

INPU2A10 

INPU2420 

INPU2A30 

INPU2AA0 

INPU2A50 

INPU2460 

INPU2A70 

INPU240O 

INPU2490 

INPU2500 

INPU251D 

INPU2520 

INPU2530 

INPU25A0 

INPU2550 

INPU2560 

INPU2570 

INPU2580 

INPU2590 

INPU2600 

INPU2610 

INPU2620 

TNPU2630 

IN»U26A0 

INPU2650 

INPU2660 

INPU2670 

INPU2680 

INBU2690 

INPU2700 

INPU2710 

INPU2720 

INPU2730 

INPU27AO 

INPU2750 

INPU2760 

INPU2770 

INPU2780 

INPU2790 

INPU2800 

INPU2810 

INPU2820 

INPU2830 

INPU28A0 

INPU2850 

INPU2860 

INPU2870 

INPU2880 

INPU2890 

INPU2900 

INPU2910 

INPU2920 

INPU2930 



oooooooooooooooooooorkooooooooono 


REAOI5»5aOI V(RP3I»U(NP3I 


255 NOUMB^I 

1FCNEQ«E0.U6G TO 265 

WRITE < 6 » 850IN0UMe,m)»um»(FU>llf 

00 230 

230 WRITEUv B50n«VmfU(l)f(FU»n ,4«i»NPHI 

WRITE (69 B50INP39VtNP3l9J(NP3) f (FiJpNPB) tJ-ifNPHI 
GO TO 270 

265 WRITEI 69 850) NOUMetYClItUm 
DO 260 I«3»NPl 

260 WRITEUt 850) I«t(!)»UII) 

WRITE( 6 f 6501 NP3fY(NP3l 9UINP3) 

270 CONTINUE 

TURBULENT TRANSPORT CONSTANTS 

LAMINAR B.L. CNLYf READ IN DUMMY DATA. 

IF THERE IS NO WALL# READ IN DUMMY VALUES FDR AK* APL* BPL 

THE QUANTITIES READ AT THIS POINT ARE DEFINED: 

AK> MIXING LENGTH CONSTANT KAPPA < SUGGESTED VALUE* 0.41 I 

ALMGG* value OF LAMBDA*YL/YG (TRY O.OaSHFQR A 

BOUNDARY LAYER ON A WALL THIS VALUE IS OVERRIDEN AT LOW 

••••• REYNOLDS NUMEERS IBELOW APPROXI HATEL Y 6000) EXCEPT WHEN K2>3. 

FOR PIPE-FLOW TRY 0.071 (WHEN THE CONSTANT EDDY 

DIFFUSIVITY CPTION IS USED THIS NUMBER IS A DUMMY) 

FR* DEFINES BOUNDARY LAYER THICKNESS (99X POINT*O.OI» USED IN 

THE DEFINITION OF ALNG (SUGGESTED VALUE«O.Oll. 

AOtBQ- CCNSTANTS IN THE TURBULENT KlNEriC ENERGY EQUATION* OR 

CCNSTANTS IN THE EDDY DIFFUSIVITY EQUATION. WHEN THE 

CONSTANT EDDY DIFFUSIVITY OPTION IS USED* 

..••9 SET K2*2. (FDR PIPE-FLOW TRY X^»2 1 AQ*.005* 6Q*0.9) 

NOTE: TO BE CONSISTENT FOR TURBULENT K.E.* AX MUST BE 

EQUAL TO (AQ«*. 75)/(BQ*«.25) 

(SUGGEST 0.22 AND 0.377 FOR TKe. ALSO SUGGEST USE 

PRT(J)»I.7 FDR THE TURBULENT KINETIC ENERGY EQUATION.) 
999 >. YPMAX* MAXIMUM VALUE OF YPLUS TO BE ALLDWED AT OUTER EDGE OF 
WALL FUNCTION (SAY 50.0 FOR TURBULENT BL; USE l.O IF 

DESIRED TO BYPASS WALL FUNCTION* BUT THEN SET 

YPMIN « 0.0. FOR STRONG PRESSURE GRADIENTS IT IS MORE 

ACCURATE TO SET YPHAX NO GREATER THAN 15 SINCE THE DE- 

• « 99 « PARTURE FR(X CDUETTE FLOW OCCURS AT VERY LOW Y«^. BEST 

..... ACCURACY IS DBrAlNED WHEN YMAX« 1.0 AND YPH!N* 0 . 0 * BUT 

the number of flow tubes NAY THEN BE VERY LARGE.) 

YPMIN- MINIMUM value OF YPLUS TO BE ALLOWED AT OUTER EDGE 

OF WALL FUNCTION FOR A TURBULENT BL (CAN BE 0.0) 

(DECIMAL NUMBERS) 

READ (5, 560 1 AK.ALMGGtFRtA;;] iBQt YPMAX* YPMIN 

C 

C READ IN A* OR IF IS GREATER THAN 6*0 PROGRAM WILL USE VAN 

C DRIEST SCHEME FOR SUBLAYER* AND B«> IS HEAD AS MERELY A DUMMY NUM- 
C BER. IF §♦ IS GREATER THAN A*t PROGRAM WILL USE THE EVANS SCHEMc. 

C THE PROGRAM WILL USE AN INTERNAL EMPIRICAL CORRELATION FOR EFFECTS 
C OF PRESSURE GRADIENT* TRANSPI RATI ON * ETC.* BUT THIS ADDITIONAL COR- 
C RECTION CAN BE SUPPRESSED IF DESIRED BY SETTING •SIGNAL* AT ANY NUM- 
C BER EQUAL TO 1.0. SUGGEST k^»25 FDR FL4T SURFACE* 26 FOR FLOW 

C INSIDE A CIRCULAR TLBE. 

C (DECIMAL NUMBERS) 

READ (5* 5B0 } API «BFL .signal 


INPU2940 

INPU2950 

INPU2960 

INPU2970 

INPU29B0 

TNPU2990 

INPU3000 

INPU3010 

INPU3020 

INPU3030 

INPU3040 

INPU3050 

INPU3060 

IMPU3070 

INPU3080 

INPU3090 

IMPU3100 

INPU3110 

INPU3120 

INPU3130 

INPU3140 

INPU3150 

INPU3160 

INPU3170 

INPU3I80 

INPU3190 

INPU3200 

INPU3210 

INPU3220 

INOU3230 

INPU3240 

INPU3250 

INPU3260 

INPU3270 

INPU3280 

INPU3290 

INPU3300 

INPU3310 

INPU3320 

INPU3330 

INPU3340 

INPU3350 

1NPU3360 

INPU3370 

INOU3380 

INPU3390 

INPU3400 

INPU3410 

INPU3420 

INPU3430 

INPU3440 

INPU3450 

INPU3460 

INPU3470 

INPU3480 

INPU3490 

INPU3500 

INOU3510 

INPU3520 

INPU3530 
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oooooooo nooooor»ooono o oooonooooo 


KD«0 

IF(APL.GE.8PL.ANC.SIGNAL.GE.1.0IKO>1 

IFIBPL.GE.APLIR0>2 

IF IBPL.GE.APL.ANC. SIGNAL. GE.1.0)K0*3 
THE QUANTITIES READ AT THIS POINT ARE DEFINED: 

.... PPLAG- A LAG CONSTANT IN THE EFFcCTIVE VALUE OF PPLUS, GPLUSf 
.... USED IN THE EVALUATION OF APt, OR 9PL. 

.... (SUGGESTED VALUE • 4000.) 

.... PRTUI • TURBULENT TRANSFER RATIO FOR F(J) (TRY .861 
.... near a mall this value is OVcRRIDEN INSIDE THE 

.... PROGRAM UNLESS K3 IS SET EQUAL TO 3. 

.... SEE INFORMATION ON K3 BcLOM. 

**•****»«««*****«*«*•**«***« READ ONE OF THE FOLLOWING TWO 
(DECIMAL NUMBERS) 

IFINEO.GT.I )REA0(5.S8O) PPLAG. (PRT( J) .J>L.NPH) 
IF(NE0.EQ.1)REA0(5.580)PPLAC 


MRITE(6,7B0) NPU3710 

HRITE<6.6A0) INPU3720 

MRITE(6.650) AK , ALMGG.FR, PPt AS . AQ.BQ, YPMAX , YPMIN INPU3730 

IFfPPLAG.LT.AOO. )MRIT£( 6,990) INPU3740 

IF(BQ.LE.O.O)GO TC 275 INPU3750 

IF(NPH.LT.l)GO TC 275 INPU3760 

AKCHEC*(A0**.75)/(BQ**.25) INPU3770 

AKERR»AES( AK-AVCFEC) INPU3780 

R20=0 INPU3790 

DO 274 J«1,NPH INPU3800 

IFISOURCEI J) .E0.2IR20-I 

IFIAKERR/AK.GT. 0.01. AND. K20.E0.1)MRIT£(6, 710) INPU3820 

)iRITE (6,930) 

MRITE(6,940)APL,BPL, SIGNAL 

IF(K0.EQ.0)MRITE(6,950) INPU3850 

IF(KD.E0.2)mRITE(6,955) INPU306O 

IFINEO.GT.I )MRITE(6, 660) I^*’U3870 

IF(NE0.GT.1)VRITE(6,650I ( PRT ( J ) , J-A ,NPH) INPU3890 

.READ IN CONVERSICN CONSTANTS, AND ANY OTHER ARBITRARY DECIMAL C0N-INPU3B90 
.STANTS THAT ARE DESIRED. 

. GC* 32.2 IN BRITISH SYSTEM INPU3910 

, CJ» 778.0 IN BRITISH SYSTEM INPU3920 

.IF YOU USE A SYSTEM SUCH AS HKS , GC»1.0 AnO CJ*l.O. JUST USE INPU3930 

.A CONSISTENT SYSTEM. THE PROGRAM MUHRS IN REAL WORLD OIMEN- INPU3940 

.SIONS, NOT NCNOD'ENSIONAL VARIABLES. BE CAREFUL ABOUT THf INPU3950 

.DIMENSIONS OF VISCOSITY --IN ENGLISH UNITS USE LBM/( SEC-FT) . INPU3960 

.THE CONSTANTS AXA, BXJ(, ETC. .MAY BE LEFT BLANK IF THEY ARE NOT INPU3970 


..BEING EMPLOYED FCR SOME SPECIAL PURPOSE INSIDE THE PROGRAM. INPU3980 

,*****♦♦***♦♦♦♦**♦♦*♦♦♦♦•••*• ***••♦*♦••••♦*****•* INPU 3990 


00t************************************'^** 

(DECIMAL NUMBERS) 

READ(5,580) CC.CJ.AXX.BXX.CXX.OXX.EXX 


INPU4000 
INPU4010 
INPU4020 

•'RITE(6,790) 

6RITEI6.720) 

HRITE(6, 910) GC.CJ.AXX.BXX.CXX.OXX.EXX 

.....READ IN the number OF RUNS OF DATA THAT YOU WANT USED (NUMRUN), INPU4060 

.....ANO THE SPACING (NUMBER OF INTEGRATIONS) 3F THE OUTPUT DATA THAT IN»U4070 

YOU WANT PRINTEO (SPACE). IF YOU SET SPa:e»11, AN ABBREVIATED INPU4080 

.....DATA SET will BE PRINTEO OUT, OMITTING ALL PROFILES. BUT INCLUDING INPU4090 
.....ALL OTHER DATA AT EACH INTEGRATION. SETTING SPACE-21 WILL CAUSE 
.....A COMPLETE DATA SET TO BE PRINTED EVERY 20 INTEGRATIONS, AS WELL INPU4110 
.....AS AN ABBREVIATED SET EVERY INTEGRATION. (THESE OPTIONS LIMITED INPU4120 


.TO 0UT2, 0UT4I. 


INPU4110 

INPU4120 

INPU4I30 
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READ IN DESIREO CUTPUT SUBROUriNE I 2t &. ETC. I INPU4140 

SOME ADDITIONAL ARBITRART 1NTEGERS> Ki.K2tK3, MAY BE READ IN HERE INPU^ISO 


C.....ALL OUTPUTS BILL PRINT OUI ONE TO FIVE iPECIALLY DESIGNATED PI ECES INPUA170 

C CF INFORMATICN, CESIGNATED AS SPIIK IF K3 IS SET EQUAL TO INPU4180 

^ 3 A VARIATION OF TWlBULENr PR NEAR A MALL MILL BE SUPRESSED, SEE INPU4190 

C.....PRT(J) ABOVE. SETTING K2 EQUAL TO 3 MILL DO THE SAME THING FOR INPU4200 

^ ALMG6. INPU4210 

t IS SET EQUAL TO 2i PROGRAM MILL USf A CONSTANT EDDY OIF- INPU4220 

C fUSIVITY IN THE CUTER REGION, INSTEAD OF A CONSTANT MIXING- INPU4230 

C. ... .LENGTH. IT BILL BE EVALUATED FROM THE EQUATION, EORbAQ*REM*«BQ, INPU4240 


C REYNOLDS NUMBER. CONT USE THIS OPTION IF FREE-STREAM VELOCITY IMPU4260 

C IS ZERO (SEE CCMPENT ON AQ,BQ). INPU4270 

C.....IF Kl IS SET EQUAL TO 9 OR 20, OELTAX BECOMES EQUAL TO AUXl(M), INPU4280 

C and the ORIGINAL INPUT VALUE OF DEL TAX IS OVERRIDDEN. THIS ALLOMS INPU4290 

C.....DELTAX To VARY MITH X.. INPU4300 

C.....ISEE PRESSURE GRADIENT CALCULATION IN MAIN FOR K1*15) INPU4310 

C ********************************m*m»*m*m*****t**********0m**»*0*0**^m*iHPui,32O 
C (INTEGERS! INPU4330 

REAO<5.SB5) NUMRUN, SPACE, OUTPUT, K1,R2,K3 INPU4340 

^ INPU4350 

HRITE(6,730I INPU4340 

BRIT£(6,740) NUMRUN.SPACE, OUTPUT, Kl ,K2,K3 INPU4370 

I F( GEOM .EO . 4.0R . GECM. EQ. 51 GO TO 11 INPU4380 

IF(K2.N£.3.ANC.KASE.EQ.1.ANO.K2.NE.2.ANO.HOO£.E0.2IMRITE(6,960» INPU4390 

11 CONTINUE INPU4400 

INPU4410 

- IF( K3 .NE.3 . ARC .KASE. EQ. 1 )K 10*1 INPU4420 

IF<K10.EQ.1.AN0.REQ.GT.1.AN0.M00E.EQ.2IMRITE(6,970) INPU4430 

1F(K1.EQ.20.CR.K1.EQ.9JMR1TE(6,992) INPU4440 

C...«. INPU4450 

C INPUT DATA ERROR CHECK INPU4460 

INPU4470 

IF(XU.LT.X<i).OR.XL.GT.X(NXBC) IMRITEIA.SOQI INPU44S0 

IFCXU.LT.XUI .0R.XL.GT.X(NXBCUKERR0R-3 INPU4490 

IF(XU.GE.XL)MRITE(£,500) INPU4500 

IF(XU.GE.XLIKERRGR-3 INPU4S10 

IF(YINP3I.GT.0.1«(X(2J-X(1)I)MR1TE(6, 5221 INPU4520 

IF(BQ.LT.0.IKERRCR>5 (NPU4540 

IF (GC .LT. 0. 5 I KER RCR=5 TNPU4550 

IF(0UTP0T.LT.1IKERR0R*5 INPU4560 

IF (KIN. EQ. I . AND.U ( 11 .GT.O.UJ KERR0R«5 INPU4S70 

IF(KEX.E0.1.AN0.U(NP3I .GT.0.0)KERRUR*5 INPU4580 

IFINEO.GT.OIGO TC 13 INPU4590 

IF(rvPBC(l).LT.l)KERRaR-5 INPU 4600 

13 IF (GEOM.LT .6 . AND .RUI 1 ).EQ. 0.0) KERROk> 5 INPU4610 

I F (GC .EQ.O .0 .OR .CJ.EO.O.OI KERROR^S INPU4620 

IF(SPACE.EQ.0)KERR0Rs5 INPU4630 

IF(KERR0R.E0.5)MRITE(6,502) INPU4640 

IFIMODE.EO.l )G0 TC 15 TNPIJ4650 

IF(AK.LT..25.0R.AK.GT..6)MRITE(6,S04) INPU4660 

IF(AK.LT..25.0R. AK.GT..6)KERR0R>4 INPU4670 

15 DO 16 M*2,NXEC INPU4680 

16 1F(X(M).LT.X(M-1)IKERR0R-1 INPU4690 

IF(Y(3I .LT.Y(1)IKERR0R-1 INPU4700 

CO 18 I»4,NPl INPU4710 

10 IF(Y(1).LE.Y(I-1)»KERR0R=1 1NPU4720 

IF(V(NP3).LT.V(NPinK£RR0R«l INPU4730 

!F(KERRQR.EQ.1)MRITE(6,5D7) INPU4740 
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IF < GEOM .EQ.4.AN0.KIN.NE.3) KERROR-2 

IF(CEOI«I.EQ.5.AND.ICIN.NE.3IKERROR-2 INPU4760 

IFICE0H.EQ.3.AR0.MN.WE.2IKERR0R»2 INPUA770 

IF(GE0M,E0.2.AN0,KIN.NE.l)KERRaR-2 INPU^pO 

IFIKIN,EQ«l.AN0.KEX,EQ.l)KERR0R«2 INPU4790 

IF(HOOE.GT.2.0R.6EOM.LT.UKERROR-2 INPU4800 

1F(KERROR.E0.2I«RITEI6,508I 

IFI lYPMAX-YPFlNI .LE.0.0) KERR0R«6 INPU4820 

IF((YPMAX-YPPIN» .LE.YPMINiKERR0R«6 !NPU^830 

IFIKERR0R.E0.6)WRITE(6.527) 

500 FORMAT! //• PROGRAM TERMINATED BECAUSE EITHER XU OR XL MERE'/ INPUA05O 

1* OUTSIDE OF THE RANGE OF THE INPUT DATA* OR ELSE XU'/ INPUA860 

2* MAS INPUT AS GREATER THAN XL'//I 1NPU4870 

502 FORMAT!//' PROGRAM TERMINATED BECAUSE OF INSUFFICIENT OR TOO '/ INPU4R80 
1' MANY CATA CAROS* OR SOME OTHER INPUT ERROR '//I INPU4890 

504 FORMAT!//' PROGRAM TERMINATED BECAUSE AK HAS ASSUMED AN ABSURD'/ INPU4900 

I* VALUE* CAUSED EITHER BY MRONG INPUT OR IMPROPER ATTENTION TO'/ 1NPU4910 
2' FORMATING OF SCME OF THE INPUT DATA'//! INPU4920 

505 FORMAT! 18A4I 

506 FORMAT(lHl*lX*18A4» INPU4940 

507 FORMAT!//' PROGRAM TERMINATED BECAUSE THE INPUT VALUES OF EITHER' / INPU4950 

1» X!N) OR Y!II ARE NOT IN MONOTONIC SEQUENCE* OR ELSE THERE IS'/ INPU4960 

2* SOME OTHER INPUT FORMATING ERROR THAT HAS FORCED THESE'/ INPU4970 

3' QUANTITIES GLT OF ORDER' //I INPU4980 

508 FORMAT! //• PROGRAM TERMINATED BECAUSE IT IS EITHER NOT'/ INPU4990 

I* YET COMPLETELY SET UP TO HANDLE THIS PARTICULAR'/ INPU5000 

2' GEOMETRY, OR ELSE THE COMBINATION OF KEX AND KIM'/ IN«»U5010 

3' IS NOT POSSIBLE IN THIS VERSION OF THE PROGRAM'//! INPU5020 

510 FORMAT! /50H GEOMETRY MODE FLUID NfcQ N KEX KIN » INPU5030 

520 F0RMAT!4X,I2*5X*H,4X,I2,4X.12,2X.I2,3X.Il*4X,Il) INPU5040 

522 FORMAT!//' THE INITIAL BOUNDARY LAYER IS RATHER THICK RELATIVE'/ INPU5050 
I* TO the SPACING CF THE BOUNDARY CONDITION POINTS. THIS MAY'/ INPU5080 

2' LEAD TO TROUBLES* ESPECIALLY WITH PRESSURE CRAOI ENT,' // » INPU5070 

525 FORMAT!/' ENTBAIKMENT BASED ON MOMENTUM EQUATION ONLY.'! 1NPU50B0 

526 FORMAT!/' ENTRAINMENT BASED ON BEHAVIOR 3F ALL EQUATIONS, »> INPU5090 

527 FORMAT!//' PROGRAM TERMINATED BECAUSE YPMAX IS TOO SMALL* '/ INPU5100 

I' OR THERE IS SOME OTHER RELATED INPUT ERROR.'//! INPU5H0 

540 FORMAT! /107H XU XL OELTAX TRANSITION REYNOLDS NO. INPU5120 

1 FRA ENTRAINMENT FRACTION GRAVITY CONSTANT ! INPU5130 

550 FORMAT! 2X,F6.3*3X,F7.3*4X,F5.2»9X,F7. I* i2X,F5. 3*8X ,F7.4 ,l IX, F 7,2* 

l8XfP7*l#/l INPU5150 

570 FORMAT I60H NXBC TVPBCl TYP8C2 TYPBC3 TYP8C4 TYPBINPU5160 

» INPU5170 

580SORMAT!7F10.0! j;;j;j5l80 

565 FORMAT! e 15! 

590 FORMATn4,10X,I2,8X,I2,8X,I2,8X,I2,8X,I2! INPJ5200 

FORMAT!/, 120F M X(H1 RMIMI UG!**! *^*?*ie 

AUX2CMI FJ!1,MI FJ!2,M) FJ!3,MI FJI4,Mi Fj I 5,M ) INPU5220 

INPU5230 


60C 


1UX1!H! 

610^F0RMAT!3X, I2,6X,F7.3,lX,F9.3,iX,Fl0.3,Fli).3,Fl0.3*Fl0.3,Fl0.3, 

IF10.3,F10.3,F10.3,F10.3I ^ 

€30 F0RMAT!80H I Y(Il U!II f!i»I) FI2,II FI3, 

II! F!4,I! FIS, I! ,/! 

€40 FORMAT! /,95H KAPPA LAMBDA FR LAG CONSTANT AQ 

180 MAX. YPLLS IN WF MIN. VPLUS IN HF 1 
650 FORMAT! 1X,F7.4,3X,F7»<^,3X,F7.4,3X,F7. 2, 3X, F7 .4 ,3X, F7.4, 4X ,F8, 3 , 

FORMAT!/, 50H PRTIll PKTI2) PkT! 31 PRTI41 PRT!5» ) 
FORMAT! /68H DENSITY VISCOSITY PRCllI PRCC2! PRCI3! 


660 

680 


1CI4! 


PRCI51! 


IN PC 5240 
INPU5250 
INPU5260 
INPU5270 
INPU5280 
INPU5290 
INPU5300 
INPU5310 
INPU5320 
PP IN»U5330 
INPC5340 
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690 fOR>(AT(lX»F8.4i3XtF9« 7»3X» F 8.3» 3X«Fo. if 3X * Fb • 3 t 3X , F6. 3» 3X tF6. 3 «/l 
700 FOBHAK/* INITIAL STATIC PRESSURt *1 

710 FORMAT!//' MABNI6G: THE INPUT VALUtS UF AX, AQ , AND 90, ARE'/ 

1' INCONSISTENT'//! 

720 FORMAT!/, 107F G-SL6-C J AXX 

I BXX CXX OXX EXX) 

730 FORMAT!/, 81H NC. OF RUNS OF OATA PRINTOUT SPACING OUTPU 

IT OPTION K1 K2 K3I 

7A0 FORMAT! 13X, I 2 , 22X , 12 , 1 5X, I 2 , lOX, I 5 , 1 i , I 5, / ! 

750 FORMAT!/' CONSTANT FLUID PRQPfeRTItS ARt BEING USED' I 
760 FORMAT!/' INITIAL PROFILES'/! 

770 FORMAT! /• BOUNDARY CONDITIONS ALONG I- ANU c-SURFACES' / I 
780 FORMAT!/' TURBULENCE CONSTANTS 
790 FORMAT!/' DIMENSIONING SYSTEM CONSTANT* 


) 


ARBI traRY 


FORMAT! /• 

FORMAT!/' 

ICONSTANTS* ! 

800 FORMAT!/* TkE FLUID IS AIR !XEENAN AND XAYE GAS TABLES!') 

820 F0RMAT!/63h BOCY-FCRCE SOURCcll! SjURCE!2! S0URCE13! SOURCEIAI SOU 


INPU535D 

INPU5360 

TNPl'5370 

INPU5380 

INOU5390 

iNPUSAOn 

INPU5A10 

INPU5A20 

INPU5A30 

INOU5AL0 

TNPU5A50 

INPU5A6C 

INPUSATn 

fX'O|,'5A30 

INPU5A°0 

INPU5500 

INPU5S10 


1RCE!5I ! 

830 F0RMAT(5X,I1,9X. I1,9X,I1,9X,11,9X,I L,9X,I1,/! 

850 F0RMAT(3X,I2,7X,F7.5,2X,F7.2,Fi0.3,xX,FiO. 3, IX ,F10.3 , FI 1 . 3 ,1 X , FIO 
1.3! 

870 F0RMAT(1X,F6.4,3X,F9.7,/! 

890 FORMAT! 38H NX8C (NUMBER OF SPECIFIED BC POINTS!! 

900 FORMAT! lOX.F 10.2) 

910 F0RMAT(2X,FA.l,7X,F5.1,i8X,5F15.4! 

920 FORMAT!/' PRCGRAM TERMINATED BECAUSE NXBC WAS READ AS A'/ 

1' NUMBER LESS Than 2, WHICH IS NOT ALLOWED.'//! 

930 FORMAT!/* APLUS BPLUS SIGNAL '! 

940 F0RMATl4X,F6.2,4X,F6.2f4X,F6.2! 

950 FORMAT!/' THE PROGRAM IS USING AN INTERNAL CORRELATION TO '/ 

1* ACCOUNT FOR THE INFLUENCE OF PRESSURE GRADIENT AND TRANSpIR-'/ 

2* ATION ON APLUS'I 

955 FORMAT!/' THg PROGRAM IS USING AN INTERNAL CORRELATION TO •/ 

1» ACCOUNT FOR the INFLUENCE OF PRESSURE GRADIENT AND TRANSPIR-'/ 

2* ON BPLUS'! 

960 FORMAT! • IF REP IS LESS THAN ABOUT 6000,*/ 

1* LAMBDA IS EEING COMPUTED BY AN INTERNAL EQUATION.*/! 

970 FORMAT! • PAT NEAR THE WALL IS BEING'/ 

1* EVALUATED BY AN INTERNAL EQUATION, EXCEPT WHEN PRT IS FOR'/ 

2' THE TURBULENT XE EQUATION. •/! 

980 format!/' PRQGRAP HILL BOMB OUT BECAUSE M IS GREATER THAN 40.'/! 

990 FORMAT! /• IF THE LAG CONSTANT IS LESS THAN 400, IT IS TREATED'/ 

1* AS IF IT HERE 2ER0.'/) 

992 FORMAT!/' OELTAX IS BEING OVERRIDDEN BY AJXIIM}.'/) 

RETURN 

END 


INPLI5520 

IHPU5530 

INPUSS'tO 

INPU5550 

INPU5550 

INPU5570 

rNPU5580 

INOU5590 

INPU560D 

INPU5610 

INPU5620 

INPU5630 

INPU5640 

INPU5650 

INOU5660 

INPU5670 

INPU5680 

INPU5690 

INPU5700 

INOU5710 

INPU5720 

INPU5730 

INPU5740 

INPU5750 

INPU5760 

INPU5770 

INPL'5700 

INPU5790 

INPU5BOO 
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Appendix IV 




SAMPLE DATA SETS 

1 _ 

EXTERNAL 

LAI'INAF 

BOUNDARY LAYER, ?!0 PRESSURE OPAriEM CP- T RA'ISP 1 n;,' j O' 

2 . 

1 

1 1 

1 24 2 1 

5. 

0.023 

0.320 

1. 300. 0.05 0.003 

1*. 

0 



5. 

2117. 

0.075 

0.000012 

b. 

2 



7. 

0.023 

1. 


8. 

0.320 

1. 


9. 

50. 



10. 

50. 



11. 

0.0 

0.0 


12. 

0.000062 

3.1 


13. 

0.000123 

6.2 


14. 

0.000185 

9.3 


15. 

0.000247 

12.3 


16. 

0.000308 

15.3 


17. 

0.000370 

18.3 


18. 

0.000432 

21.1 


19. 

0.000493 

23.9 


20, 

0.000555 

26.7 


21. 

0,000617 

29.2 


22. 

0,000678 

31.7 


23. 

0.000740 

34.3 


2U. 

0.000802 

36.4 


25. 

0.000863 

38.5 


26. 

0.000925 

40.7 


27. 

0.000987 

42 . 3 


28. 

0.001050 

43.9 


29. 

0.001110 

45.6 


30. 

0.001170 

46.7 


31. 

0.001230 

47.8 


32. 

0.001300 

48.9 


33. 

0.001360 

49.3 


34. 

0.001420 

49. 7 


35. 

0.001480 

50.0 


36. 

0.41 

0.085 

0.01 0. 0. 1. 0. 

37. 

25. 

0. 


38. 

4000 . 

0. 


39. 

32.2 

778. 


40. 

1 

21 2 


41. 




42. 




43. 



EQUATION ONLY IS BEING SOLVED. A TRANSITION TO A 

44. 

NOTE: MOMENTUM 

45. 

TURBULENT 

BOUNDARY LAYER WILL OCCUR WHEN REM REACHES 500. 

46. 

AN ENTRAINMENT FRACTION OF 0.003 IS RECOMENDED FOR LAMINAR 

47. 

BOUNDARY 

LAYER FLOWS, 


ORIGINAL PAGE ig 

OF POOR QUALrnj J ^21 



1. 

EXTERNAL 

TURBULENT BOUNDARY 

LAYER 

2. 

1 

2 1 

2 15 

2 

3. 

0.0 

4.0 

1.0 

o 

* 

o 

4. 

0 

0 



5. 

2117. 

0.075 

0.000012 

0.7 

6. 

2 

1 



7. 

0.0 

1.0 



8. 

4.0 

1.0 



9. 

110. 


100. 


10. 

110. 


100. 


11. 

0.0 

0.0 

100. 


12. 

0.0024 

73. 

175. 


13. 

0.0034 

81. 

181. 


14. 

0.0044 

85. 

185. 


15. 

0.0056 

88. 

188. 


16. 

0.0066 

91. 

191. 


17. 

0.0078 

93. 

193. 


18. 

0.0088 

96. 

196. 


19. 

0.01 

98. 

198. 


20. 

0.0112 

99. 

199. 


21. 

0.0122 

101. 

201. 


22. 

0.0134 

102. 

202. 


23. 

0.0144 

104. 

204. 


24. 

0.0166 

106. 

206. 


25. 

0.0188 

108. 

208. 


27. 

0.0232 

110. 

210. 


28. 

0.41 

0.085 

.01 

0.0 

29. 

25. 




30. 

4000. 

0.86 



51. 

52.2 

778.0 




NO 


35. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 


PRESSURE 

1 

n.f^S 


GRADIENT OR TRANSPIRATION 
.005 


0.0 


1.0 


0.0 


NOTE: THIS DATA IS SET UP FOR CONSTANT PROPERTIES; IF FLUID IS CHANGED 

TO 2 , VARIABLE PROPERTIES OF AIR WILL BE USED, CONSISTANT WITH 
THE SPECIFIED PRESSURE AND ENTHALPIES. 

WITH YPMAX SET TO 1.0, THE WALL FUNCTION IS BEING BYPASSED AND 
THE PROGRAM WILL INSERT A NUMBER OF ADDITIONAL GRID POINTS. IF 
IT IS DESIRED TO USE THE WALL FUNCTION OPTION, CHANGE YPMAX. 


THE MIXING-LENGTH SCHEME, WITH VAN DRIEST DAMPING 
OUT THE BOUNDARY LAYER. 


IS USED THRCUGH 
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1. EXTERNAL TURBULENT BOUNDARY LAYER, USING TURBULENT KINETIC ENERGY 

2. 1212 15 211 

3. 0.0 4.0 1.0 500. .05 .005 

4. 0 2 

5. 2117. 0.075 0.000012 1.0 

6 . 2 1 

7. 0.0 1.0 

8. 4.0 1.0 

9 . 110 . 0 . 

10 . 110 . 0 . 

11 . 0.0 0 . 0 . 

12. 0.0024 73. 73. 

13. 0.0034 81. 71. 

14. 0.0044 85. 67. 

15. 0.0056 88. 62. 

16. 0.0066 91. 57. 

17. 0.0078 93. 52. 

18. 0.0088 96. 47. 

19. 0.01 98. 41. 

20. 0.0112 99. 36. 

21. 0.0122 101. 31. 

22. 0.0134 102. 26. 

25. 0.0144 104. 21. 

24. 0.0166 106. 13. 

25. 0.0188 108. 5. 

26. 0.0232 110. 0. 

27. 0.41 0.085 .01 .22 .377 1.0 0.0 

28. 25.0 

29. 4000. 1.7 

50. 32.2 778.0 

31. 1 21 2 

32. 

33. 

54. 

35. NOTE: MOMENTUM AND TURBULENT KINETIC ENERGY EQUATION ARE BEING SOLVED. 

36. THE THERMAL ENERGY EQUATION CAN BE ADDED AS A THIRD EQUATION AS 

37. DESIRED. SEE PREVIOUS NOTE ON YPMAX. 
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1. LAMINAR FLOW IN A CIRCULAR PIPE. ENTRY LENGTH PROBLEM 


2. 

4 

1 1 

2 51 

5. 

o 

• 

o 

20. 

1,0 

4. 

0 

0 


5. 

21.17 

0.0075 

0.000012 

6. 

6 

1 


7. 

0.0 

0.1 

0.1 

8. 

0.5 

0.1 

0.5 

9. 

2.0 

0.1 

1*0 

10. 

4.0 

0.1 

2.0 

11. 

10.0 

0.1 

5.0 

12. 

20. 

0.1 

5.0 

15. 



240. 

14. 



240. 

15. 



240. 

16. 



240. 

17. 



240. 

18. 



240. 

19. 

0.0 

8. 

120. 

20. 

0.022 

8. 

120. 

21. 

0.054 

8. 

120. 

22. 

0.059 

8. 

120. 

23. 

0.043 

8. 

120. 

24. 

0.047 

8. 

120. 

25. 

0.051 

8. 

120. 

26. 

0.055 

8. 

120. 

27. 

0.058 

8. 

120. 

28. 

0.061 

8. 

120. 

29. 

0.064 

8. 

120. 

30. 

0.067 

a. 

120. 

31. 

0.070 

8. 

120. 

32. 

0.073 

8. 

120. 

33. 

0.076 

8. 

120. 

34. 

0.078 

8. 

120, 

35. 

0.080 

8. 

120. 

36. 

0.082 

8, 

120. 

37. 

0.084 

8. 

120. 

38. 

0.086 

8. 

120. 

39. 

0.088 

8. 

120. 

40. 

0.090 

8. 

120. 

41. 

0.092 

8. 

120. 

42. 

0.094 

8. 

120. 

43. 

0.096 

8. 

120. 

44. 

0.098 

8. 

120- 

45. 

0.0985 

8. 

120. 

46. 

0.0988 

8. 

120, 

47. 

0.0991 

8. 

120. 

48. 

0.0994 

7. 

120. 

49. 

0.0997 

4. 

180. 

50. 

0.100 

0.0 

240, 

51. 

0,0 

0.0 

0.01 

52. 

0.0 

0.0 


53. 

0.0 

0.0 


54. 

52.2 

778.0 


55. 

1 

21 4 

9 

56. 




57. 




58. 




59. 

NOTE: 

THE FOREV-ARD STEP SUE 

60. 


A TABLE OF 

AUXKM) . 


1 3 

2000. .05 

0.7 


0,0 0.0 1.0 0.0 


IS HERE BEING VAR I EL US I HC K1 = y At 
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, 1. 

TURnULENT FLOW IN A CIRCULAR 

PI PE 


2. 

4 

2 1 

2 17 


1 3 


3. 

0.0 

4.0 

1.0 


2000. .05 


4. 

0 

0 





5. 

2117. 

0.075 

0.OQO012 

0.7 


6. 

2 

2 





7. 

0.0 

0.1 





8. 

9. 

0.1 





9. 



-2. 




10. 



-2. 




11. 

0.0 

113. 

137. 




13. 

0.010 

112. 

139. 




15. 

0.020 

109. 

143. 




17. 

0.030 

106. 

148. 




18. 

0.035 

105. 

149. 




19. 

0.040 

103. 

151. 




20. 

0.045 

102. 

153. 




21. 

0.050 

100. 

155. 




22. 

0.055 

99. 

158. 




23. 

0.060 

95. 

162. 




24. 

0.065 

94. 

164. 




25. 

0.070 

91. 

168. 




26. 

0.075 

89. 

172. 




27. 

0.080 

87. 

175. 




28. 

0.085 

84. 

179. 




29. 

0.090 

80. 

185. 




30. 

0.095 

73. 

193. 




31. 

0.10 

0. 

200. 




32. 

0.41 

0.075 

0.01 


0.005 0.9 40. 

0.0 

33. 

26. 






34. 

4000. 

0.86 





35. 

32.2 

778.0 





36. 

1 

21 4 

2 




37. 







38. 







39. 







40. 

NOTE: 

HERE EDDY 

VISCOSITY 

IN 

THE OUTER REGION IS BEING COMPUTED 

41. 


AS A CONSTANT BASED 

ON 

REYNOLDS NUMBER RATHER THAN USING 

42. 


A MIXING- 

LENGTH. HEAT 

FLUX IS SPECIFIED AT THE WALL 

(AS A 

43. 


CONSTANT 

VALUE) RATHER 

THAN WALL ENTHALPY AS IN THE 

PREVIOUS 

44. 


EXAMPLES. 

WALL FUNCTION IS BEING USED IN NEAR-WALL 

REGION. 
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1. 

LAMINAR FRFF 

CONVECTION FROM A VERTICAL FLAT PLATE 

2. 

1 1 

2 

2 31 2 1 0 

3. 

0,0 3. 

0 

.5 1.0 .01 .01 -32. 

4. 

1 0 



5. 

2117. 



6. 

2 1 



7, 

0.0 4. 

u 


8. 

3.0 4. 

0 


9. 

.0001 0. 

0 

138.66 

10. 

.0001 0. 

0 

138.66 

11. 

0.0 

0.0 

138.66 

12. 

.2525E-03 

.0165 

138.47 

15. 

.4208E-03 

. 0276 

138.34 

14, 

.5049E-03 

. 0331 

138.26 

15. 

.6350E-03 

.041 

138.16 

16. 

.7651E-03 

. 0507 

138.06 

17. 

1.017E-05 

. 0672 

137.87 

18. 

1.270E-03 

.0838 

137.66 

19. 

1.530E-03 

. 1014 

137.46 

20. 

1.783E-03 

.1179 

137.27 

21. 

2.035E-03 

.1344 

137.06 

22. 

2.295E-03 

. 1521 

136.74 

23. 

2.548E-03 

. 1686 

136.67 

24. 

2.800E-03 

.1851 

136.46 

25. 

3.060E-03 

. 2028 

136.14 

26. 

3.315E-03 

.2193 

136.07 

27. 

3.565E-03 

.2358 

135.86 

28. 

3.826E-03 

. 2424 

135.66 

29. 

4.208E-03 

. 2645 

135.36 

30. 

4.591E-03 

. 2755 

135.06 

31. 

5.35bE-03 

. 2865 

134,46 

32. 

6.121E-03 

. 2975 

133.93 

33. 

7.651E-03 

. 3053 

132.90 

34. 

9.181E-03 

. 2975 

132.06 

35. 

12.24E-03 

. 2535 

130.38 

36. 

16.07E-03 

.1708 

128.82 

37. 

19.89E-03 

.1102 

127.74 

38. 

23.72E-03 

.0628 

127.26 

39. 

27.54E-03 

. 0331 

127.02 

40. 

31.37E-03 

.0198 

126.88 

41. 

35.19E-03 

.0088 

126.72 

42. 

38.26E-03 

. 0001 

126.66 

43. 

0.0 0. 

0 

.01 0.0 0.0 1.0 0.0 

44. 

0.0 



45. 

0.0 0. 

0 


46. 

32.2 778.0 


47. 

1 20 

6 


48. 




49. 




50. 




51. 

NOTE; A LARGE ENTRAINMENT FRACTION IS USED, AS DISCUSSED IN 

52. 

THE TEXT. A 

FINITE FREE-STREAM VELOCITY IS USED, BUT THE 

53. 

PROGRAM WILL 

GENERALLY OPERATE SATISFACTORILY WITH A 

54. 

ZERO 

VALUE IF THE ENTRAINMENT FRACTION IS NOT TOO SMALL. 

55. 

AN E- 

FORMAT 

IS HERE USED FOR THE Y-DI STANCES, FOR CONVEN- 

56. 

1 ENCE 

(IT OVERRIDES THE F-FORMAT SPECIFICATION, BUT THE 

57. 

NUMBERS MUST 

BE JUSTIFIED TO THE RIGHT OF THE 10 SPACE 

58. 

FIELD). SET 

RETRAN=1.0 FOR LAMINAR FREE CONVECTION FLOWS 
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1. 

FLOU 111 

A SUPERSONIC 

NOZZLE 

2. 

3 

2 2 2 

20 

3. 

-0,1783 

1.6358 

0.25 

4. 

0 

1 


5. 

2980.8 



6. 

40 

1 


7. 

-.1783 

0.20S5 


8. 

0.0208 

0.2083 


9. 

0.0416 

0.2083 


10. 

0.1092 

0.1864 


11. 

0.2888 

0.1656 


12. 

0.3767 

0.1503 


15. 

0.4448 

0.1385 


14. 

0.4994 

0.1291 


15. 

0.5445 

0.1213 


16. 

0.5805 

0.1150 


17. 

0.61 

0,1098 


18. 

0.6356 

0.1054 


19. 

0.658 

0.1015 


20. 

0.6952 

0.0951 


21. 

0.7249 

0.089 


22. 

0.7491 

0.0857 


25. 

0.7691 

0.0822 


24. 

0.7931 

0.0781 


25. 

0.8117 

0.0748 


26. 

0.8261 

0.0723 


27. 

0.8457 

0.0689 


28. 

0.8545 

0,0674 


29. 

0.8605 

0.0664 


30. 

0.8616 

0.0664 


51. 

0.8655 

0.0671 


32. 

0.8731 

0.0684 


33. 

0.8882 

0.071 


34. 

0.9071 

0.0743 


35. 

0.9388 

0.0798 


36. 

0.9775 

0.0865 


37. 

1.0229 

0.0944 


38. 

1.0751 

0.1035 


39. 

1.1038 

0.1085 


40. 

1.1341 

0.1137 


41. 

1.1999 

0.1251 


42. 

1.2726 

0.1378 


43. 

1.3524 

0.1516 


44. 

1.4394 

0,1667 


45. 

1.5354 

0.183 


46. 

1.6558 

0,2008 


47. 

0123.78 


150,69 

48. 

0123.78 


150.69 

49. 

0123.78 


150.69 

50. 

0151.85 


150.69 

51. 

0189.74 


150,69 

52. 

0227.59 


150.69 

53. 

0265.38 


150.69 

54. 

0305.13 


150.69 

55. 

0340.77 


150.69 

56. 

0378.36 


150.69 

57. 

0415.85 


150.69 

58. 

0453.25 


150.69 

59. 

0490.53 


150.69 

60. 

0564.75 


150.69 


PRESCniRED CORE VELOCITY D I STT. I BUT I OM 
1 2 U 

200 . 0.01 0.01 
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61. 

0638.42 


150.69 

62. 

0711.56 


150.69 

63. 

0784.02 


150.69 

64. 

0891.38 


150.69 

65. 

0996.99 


150.69 

66. 

1100.7 


150.69 

67. 

1501.7 


150,69 

68. 

1446.5 


150.69 

69. 

1631. 


150.69 

70. 

1805.2 


150.69 

71. 

1969. 


150.69 

72. 

2122.2 


150.69 

73. 

2310.7 


150.69 

74. 

2471.4 


150.69 

75. 

2663.2 


150.69 

76. 

2831.4 


150.69 

77. 

2978.6 


150.69 

78. 

3107.4 


150.69 

79. 

3165.7 


150.69 

80. 

3220.1 


150.69 

81. 

3318.6 


150.69 

82. 

3405.3 


150.69 

83. 

3481.4 


150.69 

84. 

5548.5 


150.69 

85. 

3607.8 


150.69 

86. 

3660.4 


150.69 

87. 

0.00000 

123.780 

369.17 

88. 

0.00573 

122.31 

369.17 

89. 

0.00746 

120.73 

369.17 

90. 

0.0112 

119.02 

366.42 

91. 

0.01493 

117.14 

363.02 

92. 

0.01867 

115.07 

359.26 

93. 

0.02053 

113.94 

357.21 

94. 

0.0224 

112.74 

355.04 

95. 

0.02427 

111.46 

352.72 

96. 

0.02614 

110.08 

350.22 

97. 

0.028 

108.59 

347.52 

98. 

0.02987 

106,97 

344.58 

99. 

0.03174 

105.18 

341.35 

100. 

0.03360 

103.2 

337. 74 

101. 

0.03547 

100.95 

333.67 

102. 

0.03754 

98,354 

328.96 

103. 

0.0392 

95.268 

323.37 

104. 

0.04107 

91,432 

316.42 

105. 

0.04294 

86.286 

307.09 

106. 

0.0448 

78,152 

292.35 

107. 

0.04667 

00.000 

150.69 

108. 

0.41 

0.085 

0.01 

109. 

25. 



110. 

4000. 

0.86 


111. 

32.2 

778. 


112. 

1 

5 6 


113. 




114. 




115. 

NOTE: VARIABLE PROPERTIES 

116. 

PROP2. THE 

FLOW IS 

117. 

WALL RADIUS 

IS BEING 

118. 

ENFRA. 



0.0 


0.0 


1.0 


0.0 


OF AtR ARE BE I Hr. COHPUTF.D USING SUBROUTINE 
AM AXI -SYMMETRIC BOUNDARY LAYER AND THE 
CONSIDERED (GEOM-3). NOTE CHANGE IN FRA» 
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NASA- Langley, 1976 



